Hello Arno,
> Sorry for being OT
No it is not OT, it is interesting since timeouts are often handled in
comm programs. I have no Delphi open, but I have some programs where I
have separate class to get me elap seconds, minutes etc. Something like
this (whitch will rollover after 136 years, so please reboot windows
every 136 year :)
type
TTimers = class
private
FTimer: TTimer;
FSeconds: integer;
procedure FTimerTimer(Sender: TObject);
public
constructor Create;
destructor Destroy; override;
property GetSecondCount: integer read FSeconds;
end;
constructor TTimers.Create;
begin
FTimer := TTimer.Create(nil);
FTimer.Interval := 1000;
FTimer.Enabled := True;
FTimer.OnTimer := FTimerTimer;
end;
destructor TTimers.Destroy;
begin
FTimer.Free;
inherited;
end;
procedure TTimers.FTimerTimer(Sender: TObject);
begin
Inc(FSeconds);
end;
---
Rgds, Wilfried
http://www.mestdagh.biz
--
To unsubscribe or change your settings for TWSocket mailing list
please goto http://www.elists.org/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be
