| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
edsonlz
Novato
Registrado: Sábado, 11 de Novembro de 2006
Mensagens: 6
|
 Enviada: Seg Ago 17, 2015 1:32 pm Assunto: Alterar formado de data |
 |
|
Boa tarde,
Eu tenho os dados de uma tabela num componente Ttable e estou criando um arquivo txt, até ai tudo bem, só a coluna que é do tipo data eu preciso que quando gerado o arquivo txt fique no padrão yyyy-mm-dd. eu consigo alterar na propriedade Display format mas no txt não fica igual...alguém sabe como fazer esse procedimento? |
|
| Voltar ao Topo |
|
 |
imex
Moderador
Registrado: Sexta-Feira, 7 de Janeiro de 2011
Mensagens: 11666
|
|
| Voltar ao Topo |
|
|
edsonlz
Novato
Registrado: Sábado, 11 de Novembro de 2006
Mensagens: 6
|
| Enviada: Seg Ago 17, 2015 2:38 pm Assunto: |
|
|
Claro
| Código: |
procedure TForm1.Button1Click(Sender: TObject);
var
arquivo: textfile;
begin
rewrite(arquivo,'D:\tabela.txt'); //Cria o arquivo;
table.first;
while not table.eof do begin
append(arquivo);
writeln(arquivo,table.fieldbyname('FPVFILCGC').asstring+' - '+
table.fieldbyname('FPVCUSMOED').asstring+' - '+
table.fieldbyname('FPVCUSTIP').asstring+' - '+
table.fieldbyname('FPVCUSPRO').asstring+' - '+
table.fieldbyname('FPVCUSDTA').SetAsDateTime+' - '+
table.fieldbyname('FPVCUSVALO').asstring+' - '+
table.fieldbyname('FPVCUS2VAL').asstring+' - '+
table.fieldbyname('FPVCUSUSUD').asstring+' - '+
table.fieldbyname('FPVCUSDATD').asstring+' - '+
table.fieldbyname('FPVCUSHORD').asstring+' - '+
table.fieldbyname('FPVCUSICMS').asstring+' - '+
table.fieldbyname('FPVCUSIPIA').asstring);
table.next;
end;
closefile(arquivo);
end;
|
|
|
| Voltar ao Topo |
|
|
DonOctavioDelFlores
Colaborador
Registrado: Quarta-Feira, 12 de Setembro de 2007
Mensagens: 2630
Localização: Pra lá de Bagda
|
| Enviada: Seg Ago 17, 2015 2:43 pm Assunto: |
|
|
Showmessage(FormatDateTime('yyyy-mm-dd', Now));
_________________
“The problem with the world is that everyone is a few drinks behind.” Humphrey Bogart |
|
| Voltar ao Topo |
|
|
edsonlz
Novato
Registrado: Sábado, 11 de Novembro de 2006
Mensagens: 6
|
| Enviada: Seg Ago 17, 2015 2:57 pm Assunto: |
|
|
| DonOctavioDelFlores escreveu: | | Showmessage(FormatDateTime('yyyy-mm-dd', Now)); |
Mas como eu poderia adaptar essa linha no meu código? |
|
| Voltar ao Topo |
|
|
natanbh1
Colaborador
Registrado: Terça-Feira, 15 de Março de 2011
Mensagens: 3093
Localização: Belo Horizonte - MG
|
| Enviada: Seg Ago 17, 2015 3:03 pm Assunto: |
|
|
Substitua o Now do exemplo pelo seu campo de Data.
| Código: | procedure TForm1.Button1Click(Sender: TObject);
var
arquivo: textfile;
begin
rewrite(arquivo,'D:\tabela.txt'); //Cria o arquivo;
table.first;
while not table.eof do begin
append(arquivo);
writeln(arquivo,table.fieldbyname('FPVFILCGC').asstring+' - '+
table.fieldbyname('FPVCUSMOED').asstring+' - '+
table.fieldbyname('FPVCUSTIP').asstring+' - '+
table.fieldbyname('FPVCUSPRO').asstring+' - '+
FormatDateTime('yyyy-mm-dd', table.fieldbyname('FPVCUSDTA').AsDateTime) +' - '+
table.fieldbyname('FPVCUSVALO').asstring+' - '+
table.fieldbyname('FPVCUS2VAL').asstring+' - '+
table.fieldbyname('FPVCUSUSUD').asstring+' - '+
table.fieldbyname('FPVCUSDATD').asstring+' - '+
table.fieldbyname('FPVCUSHORD').asstring+' - '+
table.fieldbyname('FPVCUSICMS').asstring+' - '+
table.fieldbyname('FPVCUSIPIA').asstring);
table.next;
end;
closefile(arquivo);
end; |
_________________
''A persistência é o caminho para o êxito.''
Charlie Chaplin |
|
| Voltar ao Topo |
|
|
edsonlz
Novato
Registrado: Sábado, 11 de Novembro de 2006
Mensagens: 6
|
| Enviada: Seg Ago 17, 2015 4:07 pm Assunto: |
|
|
| natanbh1 escreveu: | Substitua o Now do exemplo pelo seu campo de Data.
| Código: | procedure TForm1.Button1Click(Sender: TObject);
var
arquivo: textfile;
begin
rewrite(arquivo,'D:\tabela.txt'); //Cria o arquivo;
table.first;
while not table.eof do begin
append(arquivo);
writeln(arquivo,table.fieldbyname('FPVFILCGC').asstring+' - '+
table.fieldbyname('FPVCUSMOED').asstring+' - '+
table.fieldbyname('FPVCUSTIP').asstring+' - '+
table.fieldbyname('FPVCUSPRO').asstring+' - '+
FormatDateTime('yyyy-mm-dd', table.fieldbyname('FPVCUSDTA').AsDateTime) +' - '+
table.fieldbyname('FPVCUSVALO').asstring+' - '+
table.fieldbyname('FPVCUS2VAL').asstring+' - '+
table.fieldbyname('FPVCUSUSUD').asstring+' - '+
table.fieldbyname('FPVCUSDATD').asstring+' - '+
table.fieldbyname('FPVCUSHORD').asstring+' - '+
table.fieldbyname('FPVCUSICMS').asstring+' - '+
table.fieldbyname('FPVCUSIPIA').asstring);
table.next;
end;
closefile(arquivo);
end; |
|
Fechou, muito obrigado! |
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
