Hallo,
hier mal ein kleines Beispiel. Sollte funktionieren.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var Preisgesamt: Array[0..5] of Real;
i: Byte;
Merker: Real;
begin
// Werte setzen
Preisgesamt[0]:=0.09;
Preisgesamt[1]:=8.59;
Preisgesamt[2]:=6.97;
Preisgesamt[3]:=0.55;
Preisgesamt[4]:=12.10;
Preisgesamt[5]:=0.01;
Merker:=Preisgesamt[0];
// Günstigsten Prei suchen
for i:=0 to 5 do
begin
if Preisgesamt[i] < Merker then
begin
Merker:=Preisgesamt[i];
end;
end;
Label2.Caption:=FloatToStr(Merker);
end;
MFG Christian18