Lendo e salvando textfiles com Read e Write

Question

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 pode...

Mmtoor · Answer

Exportar o Conte�do de um memo para TXTExportandoVar  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);Importandovar   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...

F�rum Lendo e salvando textfiles com Read e Write #180391