Table1.FindKey
nastyok:: © (2006-04-14 11:07:00)
у меня возник такая проблема.
есть база dbf,есть ещо 2 Edit-a. и там два столбика,на одном
слова а на другом ихний перевод. так вот,задача состоит в том что
когда вводиш слово на Edit1 и клик на кнопку, прога находит слова в
базе,а слова перед найденным(перевод его) должно появится на Edit2.
первую часть я уже зделал,но зделать так чтобы перевод появился на
Edit2-это у меня никак не получается.
Var
s: String;
begin
s:= Edit1.Text;
Table1.FindKey([s]);
If Table1.FindKey([s]) Then ShowMessage('result found')
else ShowMessage('no result');
end;
vovnuke (2006-04-14 11:15:00) [1]
ну как нибудь так:
var
s: string;
begin
s := Edit1.Text;
if Table1.FindKey([s]) then
Edit2.Text :=
Table1.FieldByName('translate').asString
else
Edit2.Text := 'не найдено';
end;
Наверх 
ЧАТ |
Орешник |
|
