Binær read/write til fil.

Hvad vil du skrive på den?

Tjaaa... først vil jeg skrive headeren, så vil jeg skrive en sub-header og dumpe en masse data, og så vil jeg slutte af med en EOF af en slags, men kort sagt så vil jeg dumpe heximal værdier og binære værdier. Eks.: 1001010 og FA37C9

Værsgo, her er et eksempel:
--
procedure TForm1.Button1Click(Sender: TObject);
var
  f:file;
  b:byte;
  buf:array[0..9]of byte;
  i:integer;
begin
  showmessage(IntToStr(Sizeof(Buf)));exit;
  //Skriver ud
  assignfile(f,'filename.ext');
  rewrite(f,1); //Filen bliver slettet hvis den findes!!
  BlockWrite(f,b,sizeOf(b));
  BlockWrite(f,buf,Sizeof(Buf));
  BlockWrite(f,i,SizeOf(i));
  CloseFile(f);
  //læser ind
  assignfile(f,'filename.ext');
  reset(f,1); //Filen SKAL værer oprettet!!!!
  Blockread(f,b,sizeOf(b));
  Blockread(f,buf,Sizeof(Buf));
  Blockread(f,i,SizeOf(i));
  CloseFile(f);
end;

Tjah, noget i retning af:

var
  f: file;


  assignfile(f,'hvaddetnuerdinfilskalhedde.extension');
  rewrite(f,1);

....fyld en header i et array eller record...

  blockwrite(f,buffer,sizeofbuffer,antalskrevet);
  if sizeofbuffer<>antalskrevet then
      ...fejl, måske disken fuld.

osv.

Ved læsning:

  blockread(f,buffer,maxsize,antallæst);


Du skal naturligvis kunne skelne mellem header og data, enten
pga. en fast størrelse, eller særligt indhold.

Tak for jeres svar, jeg har accepteret dem begge, og vil afprøve det så snart jeg har fået noget at spise.... :)

Hov hov, kan I begge to (snorga og erikjacobsen) lige lade være med at være online så meget :)