Abrindo um arquivo txt no Delphi

[Filipe_Ctba 0]

Prezados,

 

 

Coloquei um opendialog e estou tentando, a partir do propriedade FileName deste, abrir um arquivo txt para escrever nele. A função que estou usando é a seguinte:

 

procedure TForm1.OpenDialog1Close(Sender: TObject);begin  Assignfile(ARQ, OpenDialog1.FileName);  reset(ARQ);  append(ARQ);	  writeln(ARQ, 'ola1 ');	  writeln(ARQ, 'ola2 ');	  writeln(ARQ, 'ola3 ');  Closefile(ARQ);end;

 

Mas não da certo, eu acredito que seja na função Assignfile(ARQ, OpenDialog1.FileName); , pois este requer o segundo parâmetro como String, e estou tentando usar um tipo TFileName. Existe algum modo de converter isso pra string? O erro é este mesmo?

 

 

Obrigado,

Filipe Silva.

[marcio.theis 3]

Tente assim:

 

procedure TForm1.BitBtn1Click(Sender: TObject);var	arq: TextFile;	arquivo: string;beginarquivo:='';if OpenDialog1.Execute then	arquivo:=OpenDialog1.FileName;if arquivo <> '' then	begin	Assignfile(ARQ, OpenDialog1.FileName);	Reset(ARQ);	Append(ARQ);	writeln(ARQ, 'ola1 ');	writeln(ARQ, 'ola2 ');	writeln(ARQ, 'ola3 ');	Closefile(ARQ);	end;end;

[Filipe_Ctba 0]

Funcionou do seu jeito.Obrigado.

[bdexterholland 0]

Só para constar, se usar o append, não precisa usar o reset...