Arbeitsstunden prüfen (delphie)

[dahead]

die musst du entweder selber schreiben, oder so kopieren wie oben genannt.

wenn bspw. dein Hauptformular Form1 heisst, kannst du es auch noch zusätzlich in die private Deklaration aufnehmen, um sie überall in dieser Unit anzusprechen.

Delphi-Quellcode:

unit Unit1;

type
  TForm1 = class(TForm)
  private
    { Private declarations }
    procedure ShowTime(DoneWork: integer);
  public
    { Public declarations }
  end;
 end;

...

procedure TForm1.ShowTime(DoneWork: integer);
begin
  showmessage('Du musst noch ' + inttostr(30 - DoneWork) + ' Stunden harte Plagen auf dich nehmen'); 
end;

...

procedure TForm1.Button1Click(Sender: TObject);
begin
 ShowTime(10);
end;

end.