String zerlegen

[Hawkeye219]

Ohne RegEx geht's so:

Delphi-Quellcode:

procedure SplitString (const s: string; L: TStrings; Delimiter: Char = '#');
var
  k : Integer;
  kFrom : Integer;
  Inside : Boolean;
begin
  kFrom := 1;
  Inside := False;
  for k := 1 to Length(s) do
    if (s[k] = Delimiter) then
      begin
        if Inside then
          L.Add(Copy(s, kFrom, k - kFrom))
        else
          kFrom := k + 1;
        Inside := not Inside;
      end;
end;

procedure TForm1.Button1Click (Sender: TObject);
var
  S : TStrings;
begin
  S := TStringList.Create;
  try
    SplitString ('#Beleg-Prefix#foobar#Belegnummer#', S, '#');
  finally
    S.Free;
  end;
end;

Gruß Hawkeye