Fórum Me ajudem Ler de um arquivo.txt #151103
01/04/2003
0
Alguem poderia me informar, como faço para ler a data do sistema e grardar em um arquivo.txt
E depois ler do arquivo.txt e mostrar na tela?
Atenciosamente meus agradecimentos?
E depois ler do arquivo.txt e mostrar na tela?
Atenciosamente meus agradecimentos?
Marcelototini
Curtir tópico
+ 0
Responder
Posts
01/04/2003
Anonymous
>Alguem poderia me informar, como faço para ler a data do sistema e > grardar em um arquivo.txt E depois ler do arquivo.txt e mostrar na tela?
> Atenciosamente meus agradecimentos?
(codigo para salvar o arquivo);
var
DataHoje : String[10];
ArquivoX : tStringList;
begin
DataHoje := DatetoStr(Date);
// ou DataHoje := FormatDateTime(´DD/MM/YYYY´, now);
ArquivoX := tStringList.Create;
ArquivoX.Add(DataHoje);
ArquivoX.SavetoFile(´c:\scully\secret.txt´); \\ o path que você quiser...
ArquivoX.Free;
end;
(codigo para ler do arquivo e mostrar);
(codigo para salvar o arquivo);
var
ArquivoX : tStringList;
Mensagem : String;
begin
ArquivoX := tStringList.Create;
ArquivoX.LoadFromFile(´c:\scully\secret.txt´);
Mensagem := Trim(Arquivox.Text);
ShowMessage(´Data: ´ + Mensagem);
ArquivoX.Free;
end;
> Atenciosamente meus agradecimentos?
(codigo para salvar o arquivo);
var
DataHoje : String[10];
ArquivoX : tStringList;
begin
DataHoje := DatetoStr(Date);
// ou DataHoje := FormatDateTime(´DD/MM/YYYY´, now);
ArquivoX := tStringList.Create;
ArquivoX.Add(DataHoje);
ArquivoX.SavetoFile(´c:\scully\secret.txt´); \\ o path que você quiser...
ArquivoX.Free;
end;
(codigo para ler do arquivo e mostrar);
(codigo para salvar o arquivo);
var
ArquivoX : tStringList;
Mensagem : String;
begin
ArquivoX := tStringList.Create;
ArquivoX.LoadFromFile(´c:\scully\secret.txt´);
Mensagem := Trim(Arquivox.Text);
ShowMessage(´Data: ´ + Mensagem);
ArquivoX.Free;
end;
Responder
Gostei + 0
01/04/2003
Carlos Filho
Alguem poderia me informar, como faço para ler a data do sistema e grardar em um arquivo.txt
E depois ler do arquivo.txt e mostrar na tela?
Atenciosamente meus agradecimentos?
Acredito que voce ja saiba como obter a data do sistema então...
use para salvar no arquivo
var
arquivo: TstringList;
begin
arquivo := TstringList.create;
arquivo.Text := variavelDATA; //variavelDATA é uma variavel String qualquer que contém a data do sistema. carregue-a com a data atual!
arquivo.savetofile(´nomearquivo.txt´);
arquivo.free;
end;
use para ler do arquivo
var
arquivo: TstringList;
datasistema: String;
begin
arquivo := TstringList.create;
arquivo.loadfromfile(´nomearquivo.txt´);
datasistema := arquivo.Text; //datasistema irá conter o texto previamente salvo em nomearquivo.txt
arquivo.free;
end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)