Delphi save, read record

save

  var FS : TFileStream; temp : Record type; begin // save FS := TFileStream.Create('c:\filetest.myfile', fmCreate); FS.Write(schedule_command_array, SizeOf(schedule_command_array)); FS.Free; ShowMessage('save');

read

  var FS : TFileStream; temp : Record type; begin FS := TFileStream.Create('c:\filetest.myfile', fmOpenRead); FS.Read(temp, SizeOf(temp)); FS.Free; end;