Fórum Delphi - StrToTime #500225

05/11/2014

0

Senhores Boa Tarde ,

Sou um pouco leigo em delphi e gostaria de fazer uma pergunta para vocês .
Recentemente iniciei um projeto de backup Firebird e estou tentando programar o backup para se autoinicializar de com acordo com a hora escolhida pelo usuário .
Código:
procedure TF_Principal.TimerDiarioTimer(Sender: TObject);
begin
while Tipo = 'D' do
if lblrelogio.Caption = StrToTime(Edithora.Text) then
Copiar := Edit1.Text + '\' + Edit2.Text + '.BACK' ; ;
if not CopyFile(PChar(Origem), PChar(Copiar), false) then
ShowMessage('Erro ao copiar ' + Origem + ' para ' + Copiar);
TimerDiario.Enabled := True;
end;

Ao terminar o código tentei compilar e apareceu a seguinte mensagem:
[Error] Unit1.pas: Incompatible types: 'String' and 'TDateTime'

Como posso resolver isso , existe alguma outra forma para inicializar uma função em uma hora determinada pelo usuário ?
Lembrando que esse lblrelogio.caption está buscando de um Timer no Delphi 7 com intervalo de 1segundo .
Obrigado e boa tarde !
Alexandre Amormino

Alexandre Amormino

Responder

Posts

05/11/2014

Francisco Camurça

if lblrelogio.Caption = StrToTime(Edithora.Text) then <<< CAPTION é string voce está convertendo para Edithora.Text para hora
Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar