Escrever no fim do arquivo de texto

[Júlio César SF 0]

Boa Noite,

 

Preciso escrever no fim de um arquivo de texto o conteúdo de dois edits. Não to conseguindo:

 

procedure TForm9.BitBtn1Click(Sender: TObject);vartxt:textfile;caminho,linha: String;begincaminho:=edit3.text;if edit3.text='' then showmessage('Selecione um arquivo de configuração!')  else   begin     assignfile(txt,caminho);     reset(txt);  if eof(txt) then begin     readln(txt,linha);     writeln(txt, edit1.Text);     writeln(txt, edit2.text);     writeln(txt);     end;   end; closefile(txt);end;

:blink: http://forum.imasters.com.br/public/style_emoticons/default/blush.gif

Abraço http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[Júlio César SF 0]

PÔ, desculpas consegui , era mais fácil do que achava:vartxt:textfile;caminho: String;begincaminho:=edit3.text;if edit3.text='' then showmessage('Selecione um arquivo de configuração!') else begin assignfile(txt,caminho); append(txt); writeln(txt, edit1.Text); writeln(txt, edit2.text); end; closefile(txt);end;