Como Salvar em um arq .txt no nome a data do dia

Delphi

09/01/2004

Olá pessoal, como salvar no nome de um arquivo .txt a data do dia só que no formato mmddaa, exemplo:

pedido010904.txt

tentei


procedure TForm1.Button1Click(Sender: TObject);
var
Arquivo: TStringList;
begin

Arquivo.SaveToFile(´e:\lixo\pedido.txt´);
Arquivo.Free;
end;
assim salva os registros mas e aí como faço para capturar a data atual e acrescentar ao nome do arquivo tipo pedido010904.txt no formato mmddyy.

tentei savedialog mas uso pouco ele então não consegui


Obrigado


Infohelp

Infohelp

Curtidas 0

Respostas

Edineidaniel

Edineidaniel

09/01/2004

InfoHelp,

Agora fica mais fácil....

Tente este tipo de Procedure:
procedure TForm1.Button1Click(Sender: TObject);
var
Arquivo: TStringList;
NomArq, Caminho: String;
begin
Caminho:= ´e:\lixo\´
NomArq := ´pedido´;
NomArq :=NomArq+ FormatDateTime(´ddmmyyyy´,Now)
Arquivo.SaveToFile(Caminho+NomArq+´.txt´);
Arquivo.Free;
end;

Tente agora ai vc me fala se conseguiu...

t+

Edinei


GOSTEI 0
Bacalhau

Bacalhau

09/01/2004

Para salvar arquivos txt, o TextFile pode ser uma boa solução

var L : textfile; S : string;

// converto a data numa string
S := datetostr(Data);
// retiro as separadores da data
S := copy(S,1,2) + Copy(S,4,2)+Copy(S,7,4);

assignfile(L,´pedido´ + S + ´.txt´);
rewrite(L); // aqui o ficheiro é criado, se não existir
<escrevo o que pretendo>
closefile(L);


GOSTEI 0
POSTAR