Nein, nicht komplizierter.
Es sind immer nur 2 Zahlenpaare, die mit ' x ' (Leerzeichen,x,Leerzeichen) getrennt sind.
Also
160 x 120
320 x 240
640 x 480
1024 x 768
Den ersten Zahlenwert kann ich so auslesen:
Delphi-Quellcode:
function lbPicSize(picsize:string):integer;
var i : integer;
s : string;
b : string;
begin
b := '';
s := picsize;
begin
while s[i]<>'x' do
begin
b:= b+s[i];
inc(i);
end;
b := trim(b);
result :=StrToInt(b);
end;
aber gibt es nicht eine einfachere, elegantere Lösung alle beide Werte auf einmal auszulesen ?