Text in Zeilen teilen

[cYaONE]

Servus,

wie kann ich einen String, in dem ein Text mit Zeilenumbrüchen enthalten ist in einzelne Strings aufteilen (ein String pro Zeile)?

Danke schonmal!

[Mario]

Weise TStringList.Text Deinen Text zu. Die StringList kümmert sich...

[cYaONE]

Das macht es leider nicht, ich habs schon probiert ...

[Mario]

Du greifst aber auf die StringList dann nicht aus Versehen wieder über Text, sondern über Strings, drauf zu?

Ich kann mir das im Moment nicht vorstellen, weil ich das Verfahren eigentlich gern und recht oft verwende :shock:

[Luckie]

Wie sehen die Zeilenumbrüche aus? Wie wird der String erzeugt? Wo kommt er her?
Für Windows ist ein Zeilenumbruch #13#10. Auf anderen System nur #10, das könnte Windows falsch interpretieren. Ansonsten sollte das mit der StringList gehen.

[ssach]

hy,

du kannst den ganzen Text in eine Listbox laden und dann vondort aus einzelnen strings die einzelnen Zeilen zuweisen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
I : integer;
ZEILEN : array[0..100] of string;
begin
   for I := 0 to ListBox1.Items.Count - 1 do
      ZEILEN[I] := ListBox1.Items[I];   
end;

jetzt hast du im array ZEILEN alle einzelnen Zeilen als string gespeichert und kannst damit machen was du willst?

hoffe es ist das wonach du gesucht hast!

cu

[Luckie]

Items der TListbox ist vom Typ TStrings ergo macht es keinen Unterschied, ob er eine Listbox verwendet oder gleich eine TStringList nimmt.

Wenn du ihm jetzt noch sagst, er soll die Listbox unsichtbar machen, dann gibt es haue vom Chef persönlich. :mrgreen: