Zahlenwerte aus String auslesen !

[Pseudemys Nelsoni]

Ich versteh Dein Problem nicht, dann machs doch so?

Delphi-Quellcode:

type
  TImageSize = record
    Width: Integer;
    Height: Integer;
  end;

  function GetImageSize(const ImageSize: string): TImageSize;
  var
    Index, I: Byte;
  begin
    Index := 0;
    for I := 1 to Length(ImageSize) do
    begin
      if ImageSize[I] = ' ' then
        Inc(Index);
      case Index of
        0: Result.Width := Result.Width + ImageSize[I];
        2: Result.Height := Result.Height + ImageSize[I];
      end;
    end;
  end;

  procedure irgendwas;
  var
    ImageSize: TImageSize;
  begin
    ImageSize := GetImageSize('1024 x 768');
    ShowMessage(IntToStr(ImageSize.Width));
    ShowMessage(IntToStr(ImageSize.Height));
  end;

Falsche übergaben an "GetImageSize" sind hier nicht berücksichtigt.