Kleinste Zahl?

[Pyr0cracker]

Wie kann ich aus verschiedenen Integern am schnellsten herausfinden welcher den kleinsten Wert hat?

bis jetzt habe ichs so:

Delphi-Quellcode:

if erst < zweit then
   if erst < dritt then
      if erst < viert then
         ....

etc...

Gibts ne bessere Methode?

Danke schonmal,

[Luckie]

Sortier sie.

[negaH]

Delphi-Quellcode:

function Min(const Values: array of Integer): Integer;
var
  I: Integer;
begin
  Result := MaxInt;
  for I := Low(Values) to High(Values) do
    if Values[I] < Result then Result := Values[I];
end;

[Nimoee]

Hallo,

pack deine Werte in ein Array und benutz dann folgendes:

Delphi-Quellcode:

function MinIntValue(const Data: array of Integer): Integer;

Beschreibung

Mit MinIntValue können Sie den kleinsten Integer-Wert in dem mit Data angegebenen Array ermitteln.

das Gleiche geht auch mit MinIntValue.

Ich will ja niemand zu nahe treten, aber ein Blick in die Hilfe hätte genügt.......

Nimoee

[Nimoee]

habe mich verschrieben:
Das gleiche gilt auch für MaxIntVal....

Nimoee

[Pyr0cracker]

Danke!
Ich probiers gleich mal aus...

Gruß,