Problema de escritura en texto de Delphi
Procedimiento NewTxt(FileName: String);
Var
F: Archivo de texto
Comenzar
if; fileExists(FileName) luego DeleteFile(FileName); {Compruebe si el archivo existe y elimínelo}
AssignFile(F, FileName) {Asociar el nombre del archivo con la variable F}
ReWrite(F); {Crea un nuevo archivo y llámalo ek.txt}
Writeln(F, 'Escribe el texto que deseas escribir en un archivo .txt');
Closefile(F); {Cerrar archivo F}
Fin;
Procedimiento OpenTxt(Nombre de archivo: Cadena);
Var
F: Archivo de texto;
Comenzar
AssignFile(F, FileName); {Asociar el nombre del archivo con la variable F}
Append(F); Abrir el archivo F en modo de edición}
Writeln(F, 'Escribe el texto que deseas escribir en un archivo .txt');
Closefile(F); }
Fin;
Procedimiento ReadTxt(Nombre de archivo: Cadena);
Var
F: Archivo de texto;
str: String;
Begin
AssignFile(F, FileName); {Asociar el nombre del archivo con la variable F}
Reset(F) ; Abra y lea el archivo F}
Readln(F, str);
ShowMessage('El archivo tiene: línea ' str '.
');
Cerrar archivo(F); {Cerrar archivo F}
Fin;
procedimiento TForm1.Button1Click(Remitente: TObject);
comenzar
NuevoTxt;
finalizar;
procedimiento TForm1.Button2Click(Remitente: TObject); >
OpenTxt;
fin;
procedimiento TForm1.Button3Click(Remitente: TObject);
comenzar
ReadTxt;
fin;
----------------------------------- ------------- ----------------------------------
Procedimiento AppendTxt(Str: String; FileName: String);
Var
F: Archivo de texto
Comenzar
AssignFile(F, FileName);
Append( F);
Writeln(F, Str);
Cerrar archivo(F);
Fin;