Forum: Object-Pascal / Delphi-Language
Delphi
by alzaimar,
7. Jun 2005
1. mit Add('') und dann aList := aList + aNewChar gehts.
2. Für SetLength sehe ich keine Möglichkeit.
Warum nicht so:
Procedure LineToStrings (aInput : String; aSrc : TStringList);
Var
aStart, i, n : Integer;
aLine : String;
Forum: Object-Pascal / Delphi-Language
Delphi
by alzaimar,
6. Jun 2005
Intern werden in einer TStringlist die Zeilen als ein String abgelegt. Die Zeilen sind durch CRLF voneinander getrennt. Du kannst erstens 10000x Add('') aufrufen, oder 100000xCRLF hinereinander in die Property'Text' schreiben, wie's beliebt. Aber ich versteh nicht, was Du gegen 'Add' hast.