Mostrar mensajes previos
Ordenar por
por STX Se conecta desde un manicomio
Aqui les dejo esta pequeña funcion:

Código: Seleccionar todo

Function addbytes(xArch : String; xBytes : LongInt) : String;
var
a : TextFile;
b : LongInt;
c : longint;

 begin
 c := xBytes;
 AssignFile(a, xArch);
 ReWrite(a);

 for b := 1 to c do
 begin
 Write(a, '00');
 end;

CloseFile(a);

end;
Acepto criticas! xD

Mostrar/Ocultar

por [-DruSh-] Sin sí­ntomas
No entiendo el sentido de esta función. Supongo que lo que querías hacer era agregarle 00 al final a un archivo de texto, no?, pero lo que hace tu función es borrar el contenido que ya existe y le agrega después los 00 y eso sucede al usar ReWrite, si lo que querías era hacer que agregara los 00 al final y mantuviera la información tienes que utilizar Append en lugar de ReWrite.

Otra cosa, cuando tu función no devuelve nada, utiliza procedure en lugar de function.

Código: Seleccionar todo

procedure addbytes(xArch : String; xBytes : LongInt);
var
   .....
begin
   .....
end;
Temas Recientes
Variantes de tema
Responder

Volver a “Fuentes”