Hi, ich hab Probeleme bei eienr Procedure die nur noch ausgeben soll:
Delphi-Quellcode:
procedure Ausgabe (Dif: Integer);
Begin
With Form1 Do
Ausgabe.Caption := IntToStr(Dif);
end;
procedure TForm1.RechneClick(Sender: TObject);
var DAlt, DNeu: TDateTime;
Dif:Integer;
begin
Einlesen(DAlt, DNeu);
Rechnen(Dif, DAlt, DNeu);
Ausgabe(Dif);
end;
Findet jemand von euch den Fehler?