Compute screen proportion

[Amateurprofi]

This should work:

Delphi-Quellcode:

FUNCTION AspectRatio(width,height:Integer):String;
FUNCTION LCD(v1,v2:integer):integer;
begin
   result:=0;
   if (v1>0) and (v2>0) then begin
      repeat
         result:=v1 mod v2;
         v1:=v2;
         v2:=result;
      until v2=0;
      result:=v1;
   end;
end;
var divisor:integer; s:string;
begin
   divisor:=LCD(width,height);
   if divisor=0 then result:='Width or Height <= 0'
      else result:=IntToStr(width div divisor)+':'+IntToStr(height div divisor);
end;