Fórum Salvar Edit em txt #457249
02/10/2013
0
estou com problemas pois preciso fazer um prog que salve um texto de um edit para um txt.
O porém é que eu tenho vários edits e eu quero que cada edit salve em uma linha do mesmo txt.
Se puderem me ajudar, desde já agradeço
Abs.
João Paulo
Curtir tópico
+ 0Posts
02/10/2013
Marcos Oliveira
var
Arquivo: TextFile;
begin
AssignFile(Arquivo, 'c:\arquivo.txt'); // Aqui você deve informar o local e nome do arquivo que será criado.
IOResult; // Uso esta linha para evitar erros de I/O
Rewrite(Arquivo); // Essa linha cria um arquivo novo, zerado...
Writeln(Arquivo, Edit1.Text); // Gravação das linhas no arquivo
Writeln(Arquivo, Edit2.Text);
Writeln(Arquivo, Edit3.Text);
CloseFile(Arquivo); // Fecha o arquivo e efetiva a gravação
end;
Att,
Marcos
Gostei + 0
02/10/2013
João Paulo
O programa funcionou perfeitamente com eu queria...
Muito Obrigado!!
Abs
Gostei + 0
02/10/2013
Marcos Oliveira
Abraço!
Gostei + 0
02/10/2013
Deivison Melo
Finalizando o tópico!
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)