Ein schnelleren Timer? Gibt es sowas?

[sarte]

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?