Zahlenwerte aus String auslesen !

[Pseudemys Nelsoni]

Delphi-Quellcode:

function GetTok(const S: string; const N: Integer; const C: Char): string;
var
  SLen: Integer;
  SIdx: Integer;
  NTok: Integer;
  ResIdx: Integer;
begin
  Result := '';
  if (S <> '') and (N > 0) then
  begin
    SLen := Length(S);
    NTok := 0;
    ResIdx := 0;
    SetLength(Result, SLen);
    for SIdx := 1 to SLen do
    begin
      if ((SIdx = 1) and (S[SIdx] <> C)) or ((S[SIdx] <> C) and ((S[SIdx-1] = C))) then
        Inc(NTok);
      if (NTok = N) and (S[SIdx] <> C) then
      begin
        Inc(ResIdx);
        Result[ResIdx] := S[SIdx];
      end;
    end;
    SetLength(Result, ResIdx);
  end;
end;

...

procedure irgendwas;
const
  Str: string = '640 x 480';
  ScreenWidth, ScreenHeigth: Integer;
begin
  ScreenWidth := StrToInt(GetTok(Str, 1, #32));
  ScreenHeigth := StrToInt(GetTok(Str, 3, #32));
  // nun haben ScreenWidth und ScreenHeigth die werte.
end;