Suchen der Textteile

[marabu]

Hier eine einfache Version ohne MBCS Unterstützung:

Delphi-Quellcode:

function FirstDelimiter(const delimiters, s: string): Integer;
begin
  Result := 0;
  while Result < Length(s) do
  begin
    Inc(Result);
    if Pos(s[Result], delimiters) > 0 then
      Exit
  end;
  Result := 0;
end;