Aspect ratio berechnen

[s.h.a.r.k]

Zitat von schlecki:

Zitat von s.h.a.r.k:

Delphi-Quellcode:

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

nur am Rande: das geht so ab Delphi 2007.

Okay, lasse mich gerne berichtigen

Hier noch eine Version für den GGT:

Delphi-Quellcode:

// http://de.wikipedia.org/wiki/Steinscher_Algorithmus
function GGT(NumberA, NumberB: Int64): Int64;
var
  K, T  : Int64;
begin
  if (NumberA = 0) then
    Exit(NumberB);
  K := 0;
  while (Even(NumberA) and Even(NumberB)) do
  begin
    NumberA := NumberA div 2;
    NumberB := NumberB div 2;
    Inc(K);
  end;

  if (Odd(NumberA)) then
    T := -NumberB
  else
    T := NumberA;

  while (T <> 0) do
  begin
    while (Even(T)) do
      T := T div 2;
    if (T > 0) then
      NumberA := T
    else
      NumberB := -T;
    T := NumberA - NumberB;
  end;
  if (K = 0) then
    Result := NumberA
  else
    Result := NumberA * (2 shl (K - 1));
end;