Zeilenumbruch von TStrings finden

[messie]

Moin,

ich suche gerade im BCB nach einem Zeilenumbruch von TStrings um einen Text aus einem Memo zeilenweise auszudrucken.
Nur findet die Funktion Pos() nicht das, was ich suche.

Was mache ich da falsch?

Code:

i = Pos(Char(13),Comment->Text)

Auch der Zugriff auf den Substring

Code:

i = Pos(String(Char(13)),Comment->Text.w_str());

liefert keinen sinnvollen Wert;

Comment ist eine TStringList, die den Text aus einem TMemo übergeben bekommt.

Das interessante ist, das

Code:

s = Comment->Text.SubString(1,Pos(Char(13),Comment->Text)-1);

mir den korrekten SubString rauskopiert.

Grüße, Messie

[Tryer]

Hast Du den Delimiter verstellt oder warum such Du in einer Komponente die Strings zeilenweise auflistet nach Zeilenumbrüchen im String?

Grüsse, Dirk

[HeikoAdams]

Also wenn ich mich recht erinnere, dann werden Zeilenumbrüche unter Windows als Carriage Return + Line Feed oder

Delphi-Quellcode:

Char(13) + Char(10)

abgebildet.

Man kann aber auch einfach

Delphi-Quellcode:

#13#10

verwenden

[himitsu]

Zeilenumbrüche:

#13 - MAC (das neue RichEdit in Windows nutzt aber auch dieses :wall: )
#10 - Linux
#13#10 - Windows
#$0085
#13#$0085
#$2028

Sicher daß wirklich eine #13 vorkommt?

@HeikoAdams:
Dann müßte aber dennoch die #13 / Char(13) gefunden werden.

[messie]

Zitat:

Zitat von himitsu

Zeilenumbrüche:
Sicher daß wirklich eine #13 vorkommt?

Ja, ziemlich.
Erstens funktioniert das Rauskopieren des Substring.
Dann kann ich mir im Debugger den String ansehen, der hat je nach Anzeige "\r" oder 0x000D wenn man den Debugger-Hint aufklappt.
Ich denke, es gibt irgendein Problem mit dem internen Cast des Substring.

Das mit dem DelimitedText werde ich auch mal probieren, das andere finde ich trotzdem wichtig, denn die Funktion Pos() benutze ich schon häufiger mal.

Grüße, Messie

[Sybok Factor]

also unter Delphi hat der Zugriff mit

Delphi-Quellcode:

 i := Pos(#10, AStringlist.Text);

bzw.

Delphi-Quellcode:

 i := Pos(#13, AStringlist.Text);

funktioniert. Allerdings musste ich für das Schreiben in ein XML Dokument nach beiden suchen und elimieren.
Hoffe es hilft dir.

Viele Grüße
Sybok

[himitsu]

Nur um das nochmals aufzugreifen...

- Eine StringListe enthält die Strings schon in getrennter Form.
- Der Zugriff auf .Text setzt alles jedesmal zu einem neuen String zusammen.
- Wozu also selber nach dem Zeilenumbruch suchen, wenn man es doch schon fertig zerlegt vorliegen hat?

[messie]

Zitat:

Zitat von Sybok Factor

Jetzte michse verstehen dein Problem!

Ja, mich jetzt auch :mrgreen:

AStringList.Text ist unter Delphi zwar auch ein Pointer, der verweist aber auf einen vorhandenen Variablenspeicher.

AStringList->Text ist nur ein Pointer, hinter dem offenbar kein Variablenspeicher steht. Deshalb funktionier Pos() auf einen solchen Ausdruck im BCB nicht. Innerhalb der Funktion AStringList->Text.SubStr() funktioniert Pos(), weil offensichtlich zuerst für ->Text Speicher reserviert wird, dann kopiert wird und anschließend darin gesucht wird.

Ich habe nun einen Variablenspeicher geschaffen und ->Text da reinkopiert

Code:

String s1;
s1 = AStringList->Text;
s1.Delete(1,Pos(Char(13),s1)+1); //das geht jetzt richtig

Mannomann, da soll man mal drauf kommen...

Danke für die Unterstützung, Messie