Indetectables

Aqui les dejo esta pequeña funcion:

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

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;

Indetectables

Funcion AddBytes by STX / Seritx!

Funcion AddBytes by STX / Seritx!

Re: Funcion AddBytes by STX / Seritx!