problemas al crear fichero??

[vichovi]

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.

[Julià T.]

para solucionar el problema deberás poner

rewrite(fi,1);

Cuando hagas servir ficheros sin tipo, indica siempre 1 en otro caso te va a generar un fichero de n veces el número que pongas y si no pones ninguno n=128

[vichovi]

Muchas gracias Julia, ahora si todo OK