Hola a tod@s:
Protendo crear un fichero sin tipo, en principio no tendria que tener problemas, pero cual es mi asombro que al escribir un bloque de unos 500 bytes me crea un fichero de varios Kb.
Puesto que el primer intento no fue nada grato hice el siguiente código de prueba:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;
type
TForm1 = class(TForm)
BitBtn1: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
type
TCabecera=record
//nom:array[0..250]of char;
vi:array[0..2]of boolean;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.BitBtn1Click(Sender: TObject);
var
fi:file;
reco:TCabecera;
begin
assignfile(fi,'C:\Documents and Settings\Administrador\Escritorio\kk.txt');
rewrite(fi);
//reco.nom:='kk de la vaca';
reco.vi[0]:=true;
reco.vi[1]:=true;
reco.vi[2]:=form1.Visible;
blockwrite(fi,reco,sizeof(reco));
closefile(fi);
end;
end.
En principio debia de crearme un fichero de 3 bytes, pero me crea un fichero de unos 3 kb.
Alguien sabria decirme a que se debe esto??
Un saludo y gracias de antemano.
