Thema: Delphi String zerlegen

Einzelnen Beitrag anzeigen

Hawkeye219

Registriert seit: 18. Feb 2006
Ort: Stolberg
2.227 Beiträge
 
Delphi 2010 Professional
 
#9

Re: String zerlegen

  Alt 27. Okt 2006, 13:41
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
  Mit Zitat antworten Zitat