var F : TextFile; begin AssignFile(F,'C:\\mon Repertoire\mon sous rept\Mon fichier.txt'); Reset(F) ou ReWrite(F) ou Append(F) // Suite du traitement CloseFile(F);
procedure TForm1.Button1Click(Sender: TObject); var F: TextFile; begin AssignFile(F,'C:\MonFichierTexte.txt'); end;