Главная страница
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.037 c
2-1144814057
Novi4ek
2006-04-12 07:54
2006.04.30
Доброго времени суток, Уважаемые! Передача файла TCP


2-1144912585
MAMBA
2006-04-13 11:16
2006.04.30
Как отобразить?


15-1144420283
Jeer
2006-04-07 18:31
2006.04.30
Госдума отклонила сегодня законопроект


15-1144441168
NotDesigner
2006-04-08 00:19
2006.04.30
Помогите сделать логотип


2-1144790278
Skandri
2006-04-12 01:17
2006.04.30
INI, меню и др.