Schleifen

[Christian18]

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