Red de conocimiento de abogados - Derecho de sociedades - Problema de escritura en texto de Delphi

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;