Red de conocimiento informático - Computadora portátil - 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(FileName:String);

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(FileName:String);

Var

F: Archivo de texto;

str : String;

Begin

AssignFile(F, FileName); {Asociar el nombre del archivo con la variable F}

Reset(F) ; Abrir y leer el archivo F}

Readln(F, str);

ShowMessage('El archivo tiene:' +str + 'line.');

Cerrar archivo(F); {Cerrar archivo F}

Fin;

procedimiento TForm1.Button1Click(Remitente: TObject);

comenzar

NuevoTxt;

fin;

procedimiento TForm1.Button2Click(Remitente: TObject);

comenzar

OpenTxt;

fin;

procedimiento TForm1.Button3Click(Remitente: TObject);

comenzar

ReadTxt;

fin;

-------------------------------------------- - --------------------

Procedimiento AppendTxt(Str:String;FileName:String);

Var

F:Archivo de texto;

Comenzar

Asignar archivo(F, Nombre de archivo);

Agregar(F);

Escribir(F, Str);

Cerrar archivo(F);

Fin;

上篇: ¡Cómo asignar números en textBox.text a una fórmula de variable int en C# (urgente)! 下篇: ¿Por qué hay un punto blanco en medio del punto de interrupción de C#?

Artículos populares