Aspect ratio berechnen

[s.h.a.r.k]

Äh?! Jup!

Delphi-Quellcode:

// Hier mal eine Version für D2010 aufwärts
TAspectRatio = record
  X, Y: Integer;
  procedure CalcRatio(const XRes, YRes: Integer);
end;

procedure TAspectRatio.CalcRatio(const XRes, YRes: Integer);
var
  GGT: Integer;
begin
  GGT := GetGGT(XRes, YRes);
  X := XRes div GGT;
  Y := YRes div GGT;
end;

// Oder das ganze für D2009 und älter
TAspectRatio = record
  X, Y: Integer;
end;

function GetAspectRatio(const XRes, YRes: Integer): TAspectRatio;
var
  GGT: Integer;
begin
  GGT := GetGGT(XRes, YRes);
  Result.X := XRes div GGT;
  Result.Y := YRes div GGT;
end;

Die Methode GetGGT musst dir halt irgendwo im Netz suchen