Conversão de horas

[walace 1]

Mais uma dúvida, ou melhor.. tonguisse da minha parte por não saber resolver mesmo. Mas td bem... estou iniciando em Delphi. Estou convertendo uma base de dados para outra, na antiga tenho um campo onde foram digitadas horas, mas este é string e estou movendo o mesmo para minha tabela que tem um campo hora (access). Até aí, fiz o seguinte: if (Pos(':',antGuia_Horario.AsString) = 3) and (Length(antGuia_Horario.AsString) = 5) then newsepultamento_hora.Value := StrtoTime(antGuia_Horario.AsDateTime else newsepultamento_hora.Value := StrtoTime('12:00');Está funcionando, mas lá pelo registro 2000 e alguma coisa tem uma droga de uma hora digitada 13:OO, note que al invés de digitar dois zeros no final foram digitados O´s, que m***** né. Tem uma maneira mais fácil, tipo uma função que convertesse e se desse erro eu pudesse tratar e zerar o campo. Valeu mais uma vez.

[walace 1]

Valeu galera !

 

Resolvi com esta função:

function StrIsTime(const S: string): boolean;begin  try    strtotime(S);    result := true;  except    result := false;  end;end;