Hast du mal versucht, deiner Liste die Eigenschaft "StrictDelimiter" auf true zu setzen, bevor zu splittest:
Delphi-Quellcode:
procedure Split(const Delimiter: Char; Input: string; const Strings: TStrings);
begin
Strings.Clear;
Strings.Delimiter := Delimiter;
Strings.StrictDelimiter:= True; // <--- hier
Strings.DelimitedText := Input;
end;
Zitat:
TStrings.StrictDelimiter Eigenschaft
Legt fest, wie die Eigenschaft Delimiter verwendet wird.
Klasse
TStrings
Syntax
[Delphi] property StrictDelimiter: Boolean read GetStrictDelimiter write SetStrictDelimiter;
Beschreibung
Mit dieser Eigenschaft legen Sie fest, ob Delimiter der einzige in der Eigenschaft DelimitedText verwendete Wert ist. Bei True werden die einzelnen Strings in DelimitedText nur durch das in Delimiter angegebene Zeichen getrennt. Bei False können die einzelnen Strings in DelimitedText durch ein Leerzeichen, ein nicht druckbares Zeichen oder dem in Delimiter angegebenen Zeichen getrennt werden.