Timer viel zu ungenau?

[Lefko]

Hallo Freunde,

endlich funktioniert mein Kostenzähler mit automatischer Verbindungserkennung!
ABER: der zeigt die aktuelle verbindungsdauer an (mit einem Timer (1s)); vergleicht man die aber mal mit der anzeige der dfü-verbindung, stimmen sie schon nach ca. 2 minuten um mehrere sekunden NICHT überein.. das macht mehrere minuten aus in 2-3 stunden!

gibt es irgendwie eine möglichkeit, etwas WIRKLICH JEDE SEKUNDE zu aktualisieren?

vielleicht liegt das ja daran, dass noch zusätzlich die Rechenzeit mit einfließt, in der der timer den QT ausführt?

ich zeig euch einfach meinen text:

Delphi-Quellcode:

type
  Uhr = Record
        H : string;
        M : string;
        S : string;
        end;     //Alle String, damit ich sie gleich nem Label zuw. kann

var Satz : string := '0,89' //Kosten in ct/min

...

procedure Tform1.Uhrzeit(var Zeit : Uhr; welche : integer);
begin
if StrtoInt(Zeit.S) >= 59 then begin
      if StrtoInt(Zeit.M) = 59 then begin
            Zeit.H := InttoStr(StrtoInt(Zeit.H) + 1);
            Zeit.M := '00';
            if StrToInt(Zeit.H) > 2 then Label9.Font.Color:=clred;
            end;
      if StrtoInt(Zeit.M)<59 then Zeit.M:=InttoStr(StrtoInt(Zeit.M)+1);
            
      Zeit.S := IntToStr(StrToInt(Zeit.S) - 60);
      if welche = 1 then Label15.Caption := FloattoStr(StrtoFloat(Label15.Caption) + (StrtoFloat(Satz) / 100));
      if welche = 2 then Label8.Caption := FloattoStr(StrtoFloat(Label8.Caption) + (StrtoFloat(Satz) / 100));
      end;

if StrtoInt(Zeit.S) < 59 then Zeit.S := InttoStr(StrtoInt(Zeit.S) + 1);

if length(Zeit.H) = 1 then Zeit.H := '0' + Zeit.H;
if length(Zeit.M) = 1 then Zeit.M := '0' + Zeit.M;
if length(Zeit.S) = 1 then Zeit.S := '0' + Zeit.S;
end;

...

procedure TForm1.Timer1Timer(Sender: TObject); // Intervall = 1000 ms
begin
Uhrzeit(Jetzt,1);
Uhrzeit(Heute,2);
end;

ein beispiel der differenz:

DFÜ-Anzeige: 01:48:24 Online
Meine Anzeige: 01:41:11 Online

Hoffe, ihr könnt mir helfen!

MfG Lefko.

[edit=Daniel B]Delphi-Tags korrigiert. Mfg, Daniel B[/edit]