Zahlenwerte aus String auslesen !

[Thanatos81]

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.