String auslesen der mehrere gleiche zeichen hat

[Sergej]

Hi, hier mein Vorschlag:

Delphi-Quellcode:

//Liefert das N-te Vorkommen einer Ganzzahl in einem String 
function GetNthNumber(SrcStr: String; n: Integer; Seperator: Char = '~'): String;
const NumChars = ['0', '1', '2', '3', '4', '5', '6', '7', '8', '9'];
var i, j, StrLength, count: Integer;
begin
 Result := '';
 Count := 0;
 StrLength := Length(SrcStr);
 for i:=1 to StrLength do
  begin
   If SrcStr[i] = Seperator then inc(count);
   If count = n then
    begin
     j := 0;
     While (i+j <= StrLength) AND SrcStr[i+j] in NumChars do
      begin
       inc(j);
       Result := Result + SrcStr[i+j];
      end;
     exit;
    end;
  end; 
end;

Ohne Gewähr und ungetestet *g*