Teilstring suchen

[DeddyH]

Oder vielleicht etwas in der Art:

Delphi-Quellcode:

type TStellen = record
  First,
  Count: integer;
end;

function GetPosAndCount(const s: string; const c: Char): TStellen;
var i: integer;
begin
  Result.First := 0;
  Result.Count := 0;
  for i := 1 to Length(s) do
    if s[i] = c then
      begin
        if Result.First < 1 then
          Result.First := i;
        inc(Result.Count);
      end
    else
      if Result.First > 0 then break;
end;