Memo und typisierte Dateien

[DeddyH]

Delphi-Quellcode:

type
  TMyRec = record
    Inhalt: array[1..1024] of char;
  end;

procedure TFormTest.FormCreate(Sender: TObject);
var s: string;
    f: file of TMyRec;
    R: TMyRec;
begin
  FillChar(R,SizeOf(R),0);
  s := StringOfChar('a',Length(R.Inhalt));
  StrPCopy(@R.Inhalt,s);
  AssignFile(f,'C:\Test\Test.dat');
  {$I-}
  try
    Rewrite(f);
    write(f,R);
    CloseFile(f);
  except
    on E: Exception do
      ShowMessage(E.Message);
  end;
  {$I+}
end;

Hat bei mir einwandfrei funktioniert.