Советы по Delphi. Версия 1.0.6 - [15]

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
  if (Pos(SFor, TheField.AsString) > 0) then Result := True;
 end;
 ftDate..ftDateTime: begin
  if (Pos(SFor, TheField.AsString) > 0) then Result := True;
 end;
 ftMemo:  begin
  SFor[Ord(SFor[0]) + 1]:= #0;
  PChForMemo:= GrabMemoFieldAsPChar(TMemoField(TheField));
  StrUpper(PChForMemo);
  if not (StrPos( PChForMemo, @SFor[1] ) = nil) then Result:= True;
  FreeMem(PChForMemo, StrLen(PChForMemo + 1));
 end;
 end;
end;

function FindIt(TheTable: TDataSet; TheFields: array of integer; SearchBackward: Boolean; FromBeginning: Boolean; SFor: String): boolean;
var
 i, HighTheFields, LowTheFields: integer;
 BM: TBookmark;
begin
 TheTable.DisableControls;
 BM:= TheTable.GetBookmark;
 try
  LowTheFields:= Low(TheFields);
  HighTheFields:= High(TheFields);
  SFor:= UpperCase(SFor);
  Result:= False;
  if FromBeginning then TheTable.First;
  if SearchBackwardthen begin
   TheTable.Prior;
   while not TheTable.BOF do begin
    for i:= LowTheFields to HighTheFields do begin
     if DoFindIn(TheTable.Fields[TheFields[i]], SFor) then begin
      Result := True;
      Break;
     end;
    end;
    if Result then Break else TheTable.Prior;
   end;
  end else begin
   TheTable.Next;
   while not TheTable.EOF do begin
    for i:= LowTheFields to HighTheFields do begin
     if DoFindIn(TheTable.Fields[TheFields[i]], SFor) then begin
      Result:= True;
      Break;
     end;
    end;
    if Result then Break else TheTable.Next;
   end;
  end;
 finally
  TheTable.EnableControls;
  if not Result then TheTable.GotoBookmark(BM);
  TheTable.FreeBookmark(BM);
 end;
end;

end.

Калькуляция

Хитрость OnCalcFields

Событие OncalcFields генерится ОЧЕНЬ часто и может быть необязательным и занимать большое количество времени, например, у вас есть таблица с неким вычисляемым полем, и при каждом редактировании таблицы вызывается следующий код:

MyCalcField.AsInteger:= Table1Field1.AsInteger + 10;

Теперь, если Вы решили пройти последовательно каждую запись огромной таблицы, вы можете представить, какое количество таких событий будет сгенерировано! Они будут необязательны в случае, если вы сделаете обработку полей в отдельной процедуре.

Мой совет следующий: выключите генерацию события OnCalcFields, обработайте все поля и снова включите генерацию данного события, к примеру так:

Procedure TForm1.BigProcessingFunction;
begin
 Table1.OnCalcFields:= nil;
 <Включите любые по сложности вычисления в этом месте!>
 Table1.OnCalcFields:= Table1OnCalcFields;
end;

Поля не вычисляются в течение времени обработки, которое может быть достаточно велико, но при наличие громоздких вычислений специфического поля (или даже нескольких полей), все вычисляется за один проход!

Данный метод позволяет исключить необязательный код и может быть использован повсюду, где применяются большие таблицы или сложный алгоритм калькуляции поля. Разница в скорости обработки таблицы довольно ощутима.

dBASE

Таблицы dBASE: Структура .DBF-файла

Иногда возникает необходимость поработать с таблицей dBASE напрямую, без Borland Database Engine (BDE). К примеру, если .DBT-файл (содержащий MEMO-данные) для данной таблицы безвозвратно потерян, .DBF-файл становится абсолютно непригодным, поскольку байт в заголовке .DBF-файла указывает, что таблица должна содержать соответствующий MEMO-файл. Решение этой проблемы потребует обнуление этого байта, для того чтобы таблица не указывала на сопутствующий MEMO-файл. Или, если Вам захотелось написать собственную программу для работы с данными.

Ниже приводяся структуры .DBF-файлов для таблиц dBASE. Представлены структуры файлов для различных версий dBASE: dBASE III PLUS 1.1, dBASE IV 2.0, dBASE 5.0 под DOS и dBASE 5.0 для Windows.

Структура заголовка файла данных для таблицы dBASE III PLUS.

Заголовок табличного файла
Байт	Содержание	Описание
0	1-й байт	Определение наличия MEMO-файла в таблице dBASE III PLUS (03h без MEMO-файла (.DBT-файл;) 83h с MEMO-файлом).
1-3	3 байта	Дата последнего обновления в формате YYMMDD