Millisecond

[Jens Hartmann]

Zitat von Orhan:

Ich weiß dass 1000 ms. eine sekunde macht. Ich habe etwas aderes gemeint. Trotzdem danke ich euch.

Was meinst Du denn dann?

Zitat von Orhan:

Ich will die Timer interval von (millisecond) in sekunden haben. Gibt es dazu eine Funktion

Wenn ich versteh was Du willst, denn wäre das halt, den Wert mal 1000 zu nehmen. Wenn das in eine eigene Function soll, na gut dann vieleicht so..

Delphi-Quellcode:

function TForm1.SetTimerInterval(Var Timer : TTimer):Boolean;
begin
  SetTimerInterval := true;
  try
    Timer.Interval := Timer.Interval * 1000;
    ShowMessage(IntToStr(Timer.Interval));
  except
    SetTimerInterval := false;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  SetTimerInterval(Timer1);
  SetTimerInterval(Timer2);
  SetTimerInterval(Timer3);
  SetTimerInterval(Timer4);
  SetTimerInterval(Timer5);
end;

Gruß Jens