die keinste Zahl von dreien

raphaelk

Mitglied
Hi, ich will in delphi ein programm schreiben: es soll drei eingafelder geben, einen button und ein label. in den drei eingabefeldern sollen drei zahlen eingegeben werden. wenn man dannauf den button klickt, soll die kleinste eingegebene zahl im albel angezeigt werden. wei kann man das machen? ich fange gerade erst an delphi zu lernen, aber ich bekomm das irgendwie mit den if-anfragen nicht hin. darum bitte ich um hilfe. vielleicht zeigt mir ja jemand mal einen beispielcode!


danke!
 

Arne Buchwald

Erfahrenes Mitglied
So sollte es gehen:

Code:
procedure TForm1.Button1Click(Sender: TObject);
var z1, z2, z3: integer;
begin
  z1:= StrToInt(Edit1.Text);
  z2:= StrToInt(Edit2.Text);
  z3:= StrToInt(Edit3.Text);

  if z1 < z2 then
  begin
    if z1 < z3 then
      Label1.Caption:= Edit1.Text
    else
      Label1.Caption:= Edit3.Text;
  end
  else
    if z2 < z3 then
      Label1.Caption:= Edit2.Text
    else
      Label1.Caption:= Edit3.Text;
end;
 
M

MarioAhna

anhang:
wennde jetzt noch aus den "<" nen ">" machst haste die grösste der 3 zahlen ;)
 

Neue Beiträge