Einzelnen Beitrag anzeigen

Benutzerbild von Pr0g
Pr0g

Registriert seit: 21. Mai 2004
809 Beiträge
 
Delphi 7 Personal
 
#26

Re: Gibt es ein Schnelleres verfahren als Min?

  Alt 17. Jun 2005, 23:29
Kannst auch direkt den Code aus Min() nehmen
if i1 < i2 then e1 := i1 else e1 := i2; Ist genauso schnell, wie deiner, obwohl Min() selber ja nichts anderes macht
Delphi-Quellcode:
function Min(const A, B: Integer): Integer;
begin
  if A < B then
    Result := A
  else
    Result := B;
end;
  Mit Zitat antworten Zitat