Zitat von
erik-17:
Mit einer for-Schleife wollte ich es nicht machen, weil das eine lange Stringliste ist und des denn lange dauern würde
Ich zeige dir mal, wie "AddStrings()" aussieht.
Delphi-Quellcode:
procedure TStrings.AddStrings(Strings: TStrings);
var
I: Integer;
begin
BeginUpdate;
try
for I := 0 to Strings.Count - 1 do
AddObject(Strings[I], Strings.Objects[I]);
finally
EndUpdate;
end;
end;
Quelle:
Classes.pas