- module ontime;
- var
- String s;
- Integer i, j;
- begin
- if get_current_time > 0 then
- i := get_current_time / 1000;
- j := 0;
- while i > 60 do
- j := j + 1;
- i := i - 60;
- end;
- s := inttostr(j)+':'+inttostr(i);
- set_text('ltime',s);
- end;
- end ontime;
ThunderplayerModerator: DGL-Team
|