Problem mit procedure Split()

[blackfin]

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.