Stringlist und pad String

[DeddyH]

sl2.StrictDelimiter := true; [edit] Oh, Delphi 6, da gab es das IIRC noch nicht. Klappt es vielleicht hiermit?

Delphi-Quellcode:

procedure SplitString(const Src: string; Delimiter: char;
  DestList: TStrings);
var
  PLast, PCurrent: PChar;
  s: string;
begin
  Assert(Assigned(DestList));
  DestList.BeginUpdate;
  try
    DestList.Clear;
    PLast := PChar(Src);
    PCurrent := PChar(Src);
    while PCurrent^ <> #0 do
      begin
        if PCurrent^ = Delimiter then
          begin
            SetString(s, PLast, PCurrent - PLast);
            DestList.Add(s);
            PLast := CharNext(PCurrent);
          end;
        PCurrent := CharNext(PCurrent);
      end;
    SetString(s, PLast, PCurrent - PLast);
    DestList.Add(s);
  finally
    DestList.EndUpdate;
  end;
end;

[/edit]