aha ok naja da wir funktion noch nicht hatten bleib ich lieber bei procedure so weit bin ich jetzt
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var km : Integer;
kosten: real;
begin
kosten := ( km * 1 + 5 );
km := StrToInt(Edit1.Text);
if km < 50 then
begin
Panel1.Caption := 'Über 50km fahren wir nicht' ;
end
else
if km < 5 then
begin
if kosten <30 then
Panel1.Caption := '30 € gesammt Betrag ist maximum'
else
end.
Ist das soweit richtig? Jetzt muss doch nach else nur noch der betrag in Panel1 angezeigt werden oder?