hmm
mehr als das hier:
Delphi-Quellcode:
procedure TCalculation.SetTime;
var aminute,anhour,aday: Integer;
begin
aminute := minutes;
anhour := hours;
aday := days;
inc(aminute);
if aminute = 60 then
begin
aminute := 0;
inc(anhour);
end;
if (anhour <> 0)and(anhour mod 6 = 0) then
begin
//einkaufspreis
end;
if anhour = 24 then
begin
anhour := 0;
inc(aday);
end;
minutes := aminute;
hours := anhour;
days := aday;
end;
Ist es auch nicht, es wird über einen Timer aufgerufen. Also der Timer ruft eine Funktion auf:
Delphi-Quellcode:
function TCalculation.GetMinute:Integer;
begin
result:= minutes;
end;
Das wars... und der Wert wird dann angezeigt, ist das so viel für ein Programm?