Lendo e salvando textfiles com Read e Write

Delphi

07/09/2003

Queridos amigos,

Estou criando um notepad com umas características q serão úteis pra mim, mas estou com dificuldade em salvar o arquivo com write, mas consigo lê-lo normal com read...
Será q alguém poderia me passar um código pra salvar o arq ou me esplicar o write?

Obrigado!!!


Mathac_admin

Mathac_admin

Curtidas 0

Respostas

Mmtoor

Mmtoor

07/09/2003

Exportar o Conteúdo de um memo para TXT

Exportando

Var
F:TextFile;
Begin
AssignFile(f,´c:\´+Edit1.Text+Label1.Caption);
Rewrite(f); //abre o arquivo para escrita
Writeln(f,Memo1.Text);
Writeln(f,Memo1.Text);
Write(f,´C.J de Souza Informática´);
Closefile(f);


Importando

var
f:TextFile;
linha:String;
begin
AssignFile(f,´c:\´+Edit1.Text+Label1.Caption);
Reset(f); //abre o arquivo para leitura;

While not eof(f) do begin

Readln(f,linha); //le do arquivo e desce uma linha. O conteúdo lido é transferido para a variável linha
Memo1.lines.add(linha);
End;

Closefile(f);

Espero ter ajudado.
MMTOOR2003


GOSTEI 0
POSTAR