Olá galera,
"Eu acho" que seria assim:
---
procedure TForm1.Button1Click(Sender: TObject);
var
Tempo: TTime;
begin
Tempo := Now + IncSecond(Tempo, 195);
label2.Caption := TimeToStr(Tempo);
end;
---
Faça o teste.
[]'s, Silvio Clécio
---
Linux User: #
Marcos, Rafael e Luiz,
Acabou a minha preguiça e com as preciosas informações que me ofertaram,
vou me aplicar a partir deste momento e solucionarei o problema com
certeza.
Grade abraço amigos...
Sorte e saúde.
Roberto (RJ)
/
Luiz, obrigado, somente to necessitando somar, é para um temporizador do
tipo rele assim
Ligar rele as 22:53 durante 1h23m transcorrido este tempo desliga rele,
Acontece que já fiz isto trezentas vezes, mais hoje to cum branco na memória
e se me permite a franqueza um pouco de preguiça. Pode
3 matches
Mail list logo