String zerlegen; Trenner

[SirThornberry]

Zitat von KrasserChecker:

Ich frage mich ja, warum immer alles so umständlich sein muß
Es geht doch nur darum, einen Text der an allen Vorkommen von ; aufzutrennen.
Da die Stringliste hier ja tatsächlich nicht so recht mit "DelimitedText" funktioniert machen wir es doch einfach(!) selbst:

Delphi-Quellcode:

procedure SplitString(iTextToSplit: string; iDelimiter: Char; ioSL: TStrings);
begin  
  ioSL.Clear;

  ioSL.Text := StringReplace(iTextToSplit, iDelimiter, sLineBreak, [rfReplaceAll]);
end;

warum so kompliziert - ganz einfach. Weil deine Funktion fehlerhafte Ergebnisse liefert
Hab ich folgenden Text

Zitat:

Überschrift1

Text1
##
Überschrift2

Text2

so würden bei deinem Beispiel Überschrift1 und Text1 nicht mehr zusammen sein weil auch die #13#10 wie üblich interpretiert werden.
Bei dir hätte die Stringlist dann also 6 oder 7 einträge und nicht 2 wie gewünscht (für jeden Abschnitt einen Stringlist eintrag)