Salvar alterações de um arquivo TXT

[sidneyps 0]

Pessoal, com o procedimento abaixo eu altero um arquivo txt, porém o meu problema não estou conseguindo salvar as alterações. Alguém pode me ajudar a implementar este procedimento?procedure TFormPrincipal.Button1Click(Sender: TObject);vars,linha:string;arq: TextFile;beginif BoxCemigwin.Checked thenbeginRZ.DatabaseName:='CEMIGWIN2';RZ.TableName:='RZ'+EditRz.Text+'99.dbf';RZ.Open;end;RZ.first;OpenDialog1.InitialDir:='C:\';OpenDialog1.Filename:='fdia61.*';if OpenDialog1.Execute thenAssignFile ( arq, OpenDialog1.FileName );Reset ( arq );while not RZ.eof dobeginIf (copy(RZOBSERV.value,1,1) = 'R') thenbeginif MessageDlg('Foi achado uma observação para ser retirada, deseja prosseguir?',mtConfirmation, [mbYes, mbNo], 0) = mrYes thenwhile not Eof(arq) dobeginReadln(arq,linha);Lblstatus.Caption:='Percorrendo os registros...';If AnsiCompareText(copy(linha,2,5), RZCONTA.Value) = 0 thenlinha:=Delete(linha,28,32);end;end;RZ.next;Application.ProcessMessages;end;RZ.Close;closefile(arq);ShowMessage('Procedimento concluído, arquivo salvo!');end;

[apocalipse 0]

Salve sidneyps :unsure: Voce pode usar If OpenDialog1.Execute Then RichEdit.Lines.LoadFromFile(OpenDialog1.FileName); If SaveDialog1.Execute Then RichEdit.Lines.SaveToFile(SaveDialog1.FileName);Ou voce pode public { Public declarations } arq:TextFile; texto:String;procedure TForm1.Button1Click(Sender: TObject);begin If OpenDialog1.Execute Then Begin AssignFile(arq, OpenDialog1.FileName); Reset(arq); while Not Eof(arq) do Begin Readln(arq,texto); RichEdit.Lines.Add(texto) End; CloseFile(arq); End;end;procedure TForm1.Button2Click(Sender: TObject);Var I:Integer;begin AssignFile(arq, OpenDialog1.FileName); Append(arq); Writeln(arq, RichEdit.Lines.GetText); CloseFile(arq);end;end;E isso aeApocalipseMSN OtacilioRicardo@hotmail.comICQ 337637102E-Mail otacilio@upbrasil.com.br