обрый день всем участникам форума!
Возникла очень необычная задачка.
Вообщем, есть Memo, в него вписывают строки, после нажатия на кнопку нужно из этого Memo удалить те строки,
которые уже есть в файле base.txt в папке с программой.
Я вроде бы справился, но блин, очень долго рабатает программа, и подвисает. А надо быстро!
Может кто-нибудь предоложит свой вариант? или поможет исправить ошибки?
вот код:
delphi:
| Код |
procedure TForm1.Button1Click(Sender: TObject);
var
S1,S2: TStringList;
i1, i2, i3:integer;
begin
S1 := TStringList.Create;
S1.Text := Memo1.Text;
S2 := TStringList.Create;
S2.LoadFromFile(ExtractFilePath(Application.ExeName) + '\base.txt');
i3:=-1;
S1.Insert(0,' temp ');
S1.Insert(S1.Count,' temp ');
for i1:=0 to S1.Count-1 do begin
If S1.Count-1>=i3 Then i3:=i3+1;
If i3>S1.Count Then i3:=S1.Count;
for i2:=0 to S2.Count-1 do begin
Application.ProcessMessages;
if S1.Strings[i3] = S2.Strings[i2] Then begin
S1.Delete(i3);
If i3>0 Then i3 := i3 - 1;
end;
end;
end;
S1.Delete(0);
S1.Delete(S1.Count-1);
Memo1.Text := S1.Text;
end;
|
спасибо всем кто откликнулся
может быть надо это делать не в делфи? или как-то по другому?
видил похожии программы на c++ там за секунды делаеться
еще доп. инфа. к примеру в memo пишем 7тыс строк а в файл 400 тыс, и вот очень долго программа работает (( |
)