Preciso de ajuda - Por favor me ajudem (Perdi essa tarde inteira tentando) StrToSQLTimeStamp

Question

Tenho uma StringGrid com os seguintes valores:DATA                 SECRETARIA                VALOR18.04.2013 13:10:23  SEC. DE OBRAS E SERVI�OS  100.0019.04.2013 09:23:00  SEC. DE EDUCA��O        ...

Diogenes Sampaio · Answer

Ol� Ismael,Para voc� usar ponto no formato da data voc� precisa alterar a configura��o de formato de data e hora no painel de controle do windows.Substitua o . ponto pela / e o c�digo funcionar�....

Ismael Vale · Answer

Ol� Diogenes, alterei os valores da coluna DATA para o formato dd/mm/yyyy hh:nn:ss como voc� me surgeriu, mas n�o funcionou como voc� pode observar na nova mensagem de erro abaixo:

Exception class TDBXError with message 'conversion error from string "18/04/2013 21:08:52"'. Process iProtocolo.exe (5484)

Diogenes Sampaio · Answer

Verifique formato da data e hora em painel de controle > Regi�o e Idiomas, Na aba formatos. No meu caso o formato de data abreviada est� configurado como dd/mm/aaaa e a hora por extenso est� definida como HH:mm:ss.
Com essas configura��es o c�digo abaixo funciona sem nenhum problema em meu PC:

S: TSQLTimeStamp;
S := StrToSQLTimeStamp('18/04/2013 13:10:23');

Voc� tamb�m pode usar a vari�vel global FormatSettings(declarada em SysUtils) para configurar um separador para data e hora, dessa forma voc� n�o precisa se preocupa com as configura��es do Sistema operacional, pois a fun��o StrToSQLTimeStamp utilizar� as configura��es de formato definidas por voc� e n�o as configura��es do sistema.

Delphi 2010

FormatSettings.DateSeparator := '.';
FormatSettings.TimeSeparator := ':';
S: TSQLTimeStamp;
S := StrToSQLTimeStamp('18.04.2013 13:10:23');

Delphi 7

DateSeparator := '.';
TimeSeparator := ':';
S: TSQLTimeStamp;
S := StrToSQLTimeStamp('18.04.2013 13:10:23');

Espero ter ajudado. T++

Ismael Vale · Answer

Diogenes, muito obrigado pela ajuda. Deu certo.Parab�ns...

F�rum Preciso de ajuda - Por favor me ajudem (Perdi essa tarde inteira tentando) StrToSQLTimeStamp #442931