porównuje zawartość dwóch plików i oto mój kod. są to duże pliki
mające po 100 tys lini (pliki rejestru). pytanko- czy dało by się to
jakoś przyspieszyć?? w programie porównuje tylko nazwy kluczy- już bez
żadnych wartości. Jakby ktoś chciał zobaczyć całość to śmiało
niech pisze.może jakby pliki były posortowane ewentualnie używać innego
komponentu niż memo. - czekam na propozycje. pozdrawiam
procedure TForm1.Button3Click(Sender: TObject);
var
i,k,z:integer;
jest:boolean;
begin
for i:=0 to memo1.Lines.Count-1 do
begin
memo4.Lines.Add('');
z:=memo1.Lines.Count-1-i;
memo4.Lines[i]:=IntToStr(z); // pokazuje ile zostało do zakączenia
jest:=false;
for k:=0 to memo2.Lines.Count-1 do
begin
if memo1.Lines[i]=memo2.Lines[k] then
begin
jest:=true; //jeśli dwa klucze identyczne to nic nierobie
break;
end;
end;
if jest=false then
begin
memo3.Lines.Add('');
memo3.Lines[licz]:= IntToStr(licz+1) + ' '+ memo1.Lines[i];
licz:=licz+1;
end;
end;
end;