Поиск по DataSet (Delphi)

[eval]

файл загрузить сразу в tstringlist
в датасете locate ом искать

[Slym]

DisableControls/EnableControls - 1 раз за все циклы
т.е.

procedure TForm2.Button2Click(Sender: TObject);
begin
DisableControls
try
....
finally
  EnableControls;
end;

[Alexbmgn]

Сообщение от Slym

DisableControls/EnableControls - 1 раз за все циклы
т.е.

procedure TForm2.Button2Click(Sender: TObject);
begin
DisableControls
try
....
finally
  EnableControls;
end;

Ну вот вроде как за пределы циклов вынес эти шаги.. незнаю чего еще и сделать для скорости

procedure TForm2.Button2Click(Sender: TObject);
Var f:TextFile;
st,st2:String;
st1,i:integer;
sl1:string;
List:tstringlist;

begin
progressbar1.Show;
list:=TStringList.Create;
List.LoadFromFile('C:\1.txt');

 datasource1.enabled:=false;
 DBGrid1.DataSource.DataSet.DisableControls;
  
   for i:=1 to List.Count - 1 do
   begin
   ProgressBar1.StepIt;
   DBGrid1.DataSource.DataSet.First;

     While not DBGrid1.DataSource.DataSet.Eof do
       begin
       with dBGrid1.DataSource.DataSet do
       sl1:=fieldbyname('family').AsString+' '+fieldbyname('name').AsString+' '+fieldbyname('otch').AsString;
       st1:=pos(sl1,list[i]);
         if st1>0 then
           begin
           st2:=copy(list[i],st1,length(sl1));
           memo1.lines.add(st2);
           end;
         DBGrid1.DataSource.DataSet.next;
        end;

   end;

DBGrid1.DataSource.DataSet.First;
datasource1.enabled:=true;
DBGrid1.DataSource.DataSet.enableControls;
end;

Т.е я загрузил как было посоветовано файл в Stringlist, а как использовать метод Locate Dataset-a ? ведь тут поиск не в базе а взятых данных из базы в StringList-e..

[evg_m]

Ну вот вроде как за пределы циклов вынес эти шаги.. незнаю чего еще и сделать для скорости

1. шире использовать локальные переменные для хранения промежуточных данных

var
 ds: TDataSet;
 fam, nam, otch: TField; 
 teststr: string;

 List.LoadFromFile('C:\1.txt');
// это вычисления которые нам достаточно выполнять только один раз 
 ds:=DBGrid1.DataSource.DataSet; 
 fam:=ds.fieldbyname('family');
 nam:=ds.fieldbyname('name');
 otch:=ds:=fieldbyname('otch');
// 
 datasource1.enabled:=false;
 ds.DisableControls;
  
   for i:=1 to List.Count - 1 do
   begin
   ProgressBar1.StepIt;
   teststr:=list[i];
   ds.First;

     While not ds.Eof do
     begin
       sl1:=fam.AsString+' '+nm.AsString+' '+otch.AsString;
       st1:=pos(sl1, teststr);
       if st1>0 then
       begin
         st2:=copy(teststr, st1,length(sl1));
         memo1.lines.add(st2);
       end;
       ds.next;
     end;

   end;

2. переставить местами циклы
было: один пробег (цикл) по StringList и много раз по DataSet
сделать: один раз пробежать по DataSet и многократно пробегать по StringList

ds.First;
datasource1.enabled:=true;
ds.enableControls;

while not ds.Eof do begin
  sl1:=fam.AsString+' '+nm.AsString+' '+otch.AsString;
  
  for j:=0 to list.count-1 do begin
    teststr:=list[i];
    st1:=pos(sl1, teststr);
    if st1>0 then begin
      st2:=copy(teststr, st1,length(sl1));
      memo1.lines.add(st2);
    end; 
  end;

  ds.next;
end;