Arbeitsstunden prüfen (delphie)

[alias5000]

eigentlich ganz einfach:

Delphi-Quellcode:

Procedure ShowTime(DoneWork: integer); //cooler Titel :-)  donework in Stunden
begin
showmessage('Du musst noch ' + inttostr(30 - DoneWork) + ' Stunden harte Plagen auf dich nehmen');
end;

Dann musst du die Procedur nur noch aufrufen und die Stundenzahl übergeben, die du schon hinter dir hast.

War es das?

Gruß alias5000