Hallo
Ich hoffe ich bin hier richtig.
Ich hab ein kleines problem mit der Funktion Split()
was ist den hier falsch?, wieso bekomme ich das ganze nicht gesplittet?
Delphi-Quellcode:
program uragan;
var
list: TStringList;
s : string;
i : integer;
procedure Split(const Delimiter: Char; Input: string; const Strings: TStrings);
begin
Strings.Clear;
Strings.Delimiter := Delimiter;
Strings.DelimitedText := Input;
end;
begin
list := TStringList.create;
s := 'blabla' + HStr('00') + 'blabla2' + HStr('00') + 'blabla3' + HStr('00') + 'blabla4' + HStr('00') + 'blabla5' + HStr('00') ;
Split(HStr('00'), s, list);
for i := 0 to list.count-1 do begin
ShowMessage(list[i]);
end;
end.