Главная страница
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.031 c
15-1144315906
Erik1
2006-04-06 13:31
2006.04.30
Где найти компонент для отображения TIFF формата с компресией?


2-1145111374
Exciter
2006-04-15 18:29
2006.04.30
Добавить Lookup поле программно


2-1144759151
TrainerOfDolphins
2006-04-11 16:39
2006.04.30
Назначение методов переменным класса во время выполнения.


2-1144828707
Дмитрий_177
2006-04-12 11:58
2006.04.30
Класс для хранения шрифта и его настроек в файле


4-1139568531
Vlad2
2006-02-10 13:48
2006.04.30
Как определить, нажата ли левая клавиша мыши