Все бесплатно
    Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.



Вопросы
  Прочитать содержимое папки
   Категория: Файловая система
  Как соединить несколько файлов в один
   Категория: Текст и строки
  Замена подстроки в строке
   Категория: Текст и строки
  К-во рабочих дней в месяце
   Категория: Математика
  Удалить лишние символы из строки
   Категория: Текст и строки
  Как нарисовать фрактал
   Категория: Математика
  Удалить свой же exe-шник
   Категория: Приложение
  Компоненты Panel, GroupBox, Bevel, ScrollBox, Splitter
   Категория: Компоненты
Delphi - База Знаний: Поиск по EasyTable

  << Вернуться к Содержанию  

//LOCATE
procedure TMainForm.btLocateClick(Sender: TObject);
var options: TLocateOptions;
begin
with EasyTable1 do
  begin
   Options := [];
   if not cbCaseSensitive.Checked then
    Options := Options + [loCaseInsensitive];
   if cbPartialKey.Checked then
    Options := Options + [loPartialKey];
   if not Locate('Company',SearchCondition.Text,Options) then
    MessageDlg('Record not found.',mtInformation,[mbOk],0);
  end;
end;

//LOOKUP
procedure TMainForm.btLookupClick(Sender: TObject);
var
  V: Variant;
  msg: String;
begin
V := EasyTable1.Lookup('Company',SearchCondition.Text,'Company;Address;Phone');
if (not VarIsNull(V)) then
  begin
    Msg := 'Record found: Company='+QuotedStr(String(V[0]));
    Msg := Msg + ', Address=';
    if (not VarIsNull(V[1])) then
     Msg := Msg + QuotedStr(String(V[1]))
    else
     Msg := Msg + QuotedStr('null');
    Msg := Msg + ', Phone=';
    if (not VarIsNull(V[2])) then
     Msg := Msg + QuotedStr(String(V[2]))
    else
     Msg := Msg + QuotedStr('null');
    MessageDlg(Msg, mtInformation,[mbOk],0);
  end
else
    MessageDlg('Record not found.',mtInformation,[mbOk],0);
end;
  << Вернуться к Содержанию