Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.063 c
15-1144322061
Суслик
2006-04-06 15:14
2006.04.30
XML parser


2-1145012129
abhtr
2006-04-14 14:55
2006.04.30
TLabel.Create


6-1137084456
bloodman
2006-01-12 19:47
2006.04.30
Перечислить сет. интерфейсы, Как?


2-1145001367
Dust
2006-04-14 11:56
2006.04.30
Рекурсивный обход папок,,, или не рекурсивный...


2-1144931377
Кир
2006-04-13 16:29
2006.04.30
Классическая такая задачка...