AV bei Records laden

[Mavarik]

[/delphi]

Zitat von Neutral General:

wie denn ?

Na so...:

Delphi-Quellcode:

{$A1}
var
  F : File of rSchulden;
Fd  : file;
  S : rSchulden;
SA : array[0..9999] of rSchulden; 
begin
  assignfile(f,'Mydat.dat');
  rewrite(f);  // Reset

  for i:=0 to xyp do
   write(f,S);

  Closefile;
  // Oder
  assignfile(fd,'Mydat.dat');

  rewrite(fd,sizeof(RSchulden));
  Blockwrite(fd,SA[0],10000);
  Closefile(fd);

*Ungetestet nur getippt...

Frank