Текущий архив: 2006.04.30;
Скачать: CL | DM;
Вниз
Table1.FindKey Найти похожие ветки
← →
nastyok:: (2006-04-14 11:07) [0]у меня возник такая проблема.
есть база 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) [1]ну как нибудь так:
var
s: string;
begin
s := Edit1.Text;
if Table1.FindKey([s]) then
Edit2.Text := Table1.FieldByName("translate").asString
else
Edit2.Text := "не найдено";
end;
Страницы: 1 вся ветка
Текущий архив: 2006.04.30;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.03 c
