Kleinste Zahl?

**Pyr0cracker**

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

bis jetzt habe ichs so:

markieren

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**

markieren

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:

markieren

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ß,

Kleinste Zahl?

Kleinste Zahl?

Re: Kleinste Zahl?

Re: Kleinste Zahl?

Re: Kleinste Zahl?

Re: Kleinste Zahl?

Re: Kleinste Zahl?

Forumregeln

Pyr0cracker Registriert seit: 15. Nov 2002 Ort: Norddeutschland 232 Beiträge Delphi 7 Personal	#1 Kleinste Zahl? 21. Okt 2003, 00:16 Wie kann ich aus verschiedenen Integern am schnellsten herausfinden welcher den kleinsten Wert hat? bis jetzt habe ichs so: markieren Delphi-Quellcode: if erst < zweit then if erst < dritt then if erst < viert then .... etc... Gibts ne bessere Methode? Danke schonmal, Dorian Vasco dorianvasco.de
	Zitat

Luckie Registriert seit: 29. Mai 2002 37.621 Beiträge Delphi 2006 Professional	#2 Re: Kleinste Zahl? 21. Okt 2003, 00:23 Sortier sie. Michael Ein Teil meines Codes würde euch verunsichern.
	Zitat

negaH Registriert seit: 25. Jun 2003 Ort: Thüringen 2.950 Beiträge	#3 Re: Kleinste Zahl? 21. Okt 2003, 00:49 markieren 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;
	Zitat

Nimoee Registriert seit: 20. Aug 2003 Ort: Darmstadt 131 Beiträge Delphi 5 Professional	#5 Re: Kleinste Zahl? 21. Okt 2003, 07:18 habe mich verschrieben: Das gleiche gilt auch für MaxIntVal.... Nimoee
	Zitat

Pyr0cracker Registriert seit: 15. Nov 2002 Ort: Norddeutschland 232 Beiträge Delphi 7 Personal	#6 Re: Kleinste Zahl? 21. Okt 2003, 12:01 Danke! Ich probiers gleich mal aus... Gruß, Dorian Vasco dorianvasco.de
	Zitat