Советы по Delphi. Версия 1.0.6

Вместо возвращения результатов элементу EditBox (который перезаписывает введенное пользователем значение), вы можете передавать результаты другому элементу управления, например компоненту ListBox. Вы также можете отобразить несколько наиболее подходящих значений, к примеру так:

procedure Edit1OnChange(…);

var i:integer;

begin

 if not updating then exit; {сделайте обновление где-нибудь еще – например при срабатывании таймера}

 updating:= false;

 Table1.FindNearest([Edit1.text]);

 ListBox1.clear;

 i:= 0;

 while (i < 5) and (not (table1.eof)) do begin

  listbox.items.add(Table1.fields[0].asString);

  inc(i);

  table1.next;

 end;

 listbox1.itemindex:= 0;

end;

Быстрый поиск в базах данных

Я представляю на Ваш суд утилиту быстрого поиска по базе данных. Данная технология производит поиск по полям, преобразуя их значения в строки (все значения преобразуются в верхний регистр, включая действительные числа). Данное решение может быть не самым быстрым, однако на поверку оно оказывается быстрее остальных, обнаруженных мною в Интернете (может вам повезет больше). Более того, представьте, что действительное значение какого-либо поля равно 4.509375354, а значение поиска равно 7, в этом случае утилита засчитает "попадание". Утилита удобна также тем, что она за один проход производит поиск более, чем в одном поле. Это удобно, если у Вас имеются, к примеру, два поля с адресами. Это моя первая "серьезная" разработка, так как первое, с чем я столкнулся, изучая Delphi, стала необходимость включения процедуры поиска в любое приложение, работающее с базой данных. А так как поиск – вещь тоже сугубо специфическая, как и любое приложение, то мне пришлось побороть свой страх перед "крутым программированием" и попробовать написать свой поисковый механизм, удовлетворивший меня (и, надеюсь, других) своей скоростью и возможностью "мульти"-поиска по нескольким полям. Я надеюсь, что он поможет тем программистам, кто часто сталкивается с подобными задачами. Технология довольно легка для понимания, но если у Вас возникли какие-либо вопросы, пошлите мне письмо электронной почтой, я буду рад Вам помочь. Посмотрев код, можно легко узнать поддерживаемые типы полей (добавить новые не составит проблем). Если кто-либо обнаружит ошибочный код или расширит функциональность утилиты, пожалуйста, пошлите это мне, я буду весьма благодарен. Спасибо.

unit Finder;

interface

uses DB, DBTables, SysUtils;

function GrabMemoFieldAsPChar(TheField: TMemoField): PChar;

function DoFindIn(TheField: TField; SFor: String): Boolean;

function FindIt(TheTable : TDataSet; TheFields: array of integer; SearchBackward: Boolean; FromBeginning: Boolean; SFor: String): boolean;

{применение функции FindIt – if FindIt(NotesSearchT, [NotesSearchT.FieldByName('Leadman').Index], False, True, SearchText.Text) then DoSomething; }

implementation

function GrabMemoFieldAsPChar(TheField: TMemoField): PChar;

begin

 with TBlobStream.Create(TheField, bmRead) do begin

  GetMem(Result, Size + 1);

  FillChar(Result^, Size + 1, #0);

  Read(Result^, Size);

  Free;

 end;

end;

function DoFindIn(TheField : TField; SFor : String): Boolean;

var

 PChForMemo: PChar;

begin

 Result:= False;

 case TheField.DataType of

 ftString: begin

  if (Pos(SFor, UpperCase(TheField.AsString))> 0) then Result := True;

 end;

 ftInteger: begin

  if (Pos(SFor, TheField.AsString)> 0) then Result:= True;

 end;

 ftBoolean: begin

  if SFor = UpperCase(TheField.AsString) then Result:= True;

 end;

 ftFloat: begin

  if (Pos(SFor, TheField.AsString) > 0) then Result := True;

 end;

 ftCurrency: begin