Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.026 c