Delphi-Quellcode:
procedure PicSize(picsize: String; var aWidth, aHeight : Integer);
var x : Integer;
begin
x := Pos(' x ',picSize);
aWidth := StrToIntDef(Copy(picSize,0,x-1),-1);
aHeight := StrToIntDef(Copy(picSize,x+3,length(picSize)),-1);
end;
procedure TForm1.Button1Click(Sender : TObject);
var breite, hoehe : Integer;
begin
picSize('640 x 480',breite,hoehe);
end;
Nun sollten breite und hoehe die richtigen Werte beinhalten, bzw. jeweils -1 falls der String fehlerhaft war.
Konnte es jetzt gerade nicht testen, da ich just kein Delphi zur Hand hab... Aber wenn der String wirklcih 'Breite x Hoehe' ist sollte es funktionieren, evenntuell noch x := Pos(' x ',picSize); durch 'x := Pos(' x ',lowerCase(picSize));' ersetzen falls es nicht immer kleine x sind.