Delphi-Quellcode:
i:=0;
While i<Listbox2.Count do
Begin
u:=0;
While u<Listbox2.Count-1 do
Begin
If i<>u then
Begin
If Arefilesequal(Listbox2.Items.Strings[i],Listbox2.Items.Strings[u])=true then
Begin
Listbox4.Items.Add(Listbox2.Items.Strings[u]);
Listbox2.Items.Delete(u);
u:=Listbox2.Count-1;
i:=0;
end;
end;
u:=u+1;
end;
i:=i+1;
end;
Wie kann ich nun den belegten speicher nach beendigen der inneren Schleife wieder freigeben während die
Procedure noch läuft?
Danke!