Hi, ich hab Probeleme bei eienr Procedure die nur noch ausgeben soll:

zusammenfalten · markieren

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?

Ja Komponente und Prozedur mit selben Namen.

Darauf hätte ich auch selber kommen können. Danke.