Delphi 2010: How to save a whole record to a file?

by

You can load and save the memory of a record directly to and from a stream, as long as you don’t use dynamic arrays. So if you use strings, you need to make them fixed:

type TTestRecord = record 
  FMyString : string[20]; 
end; 

var 
  rTestRecord: TTestRecord;
  strm : TMemoryStream; 

strm.Write(rTestRecord, Sizeof(TTestRecord) );

You can even load or save an array of record at once!

type TRecordArray = array of TTestRecord;

var ra : TRecordArray; 

strm.Write(ra[0], SizeOf(TTestRecord) * Length(ra));

In case you want to write dynamic content: 

iCount   := Length(aArray);
strm.Write(iCount, Sizeof(iCount) );      //first write our length
strm.Write(aArray[0], SizeOf * iCount);   //then write content

After that, you can read it back:

strm.Read(iCount, Sizeof(iCount) );       //first read the length
SetLength(aArray, iCount);                //then alloc mem
strm.Read(aArray[0], SizeOf * iCount);    //then read content

More Related Contents:

  1. Binary to Base64 (Delphi)
  2. How should I prepare my 32-bit Delphi programs for an eventual 64-bit compiler? [duplicate]
  3. FTP Over SSH (SFTP) In delphi 2010
  4. How to split string by a multi-character delimiter?
  5. Selecting a directory with TOpenDialog
  6. TThread.resume is deprecated in Delphi-2010 what should be used in place?
  7. What is the compiler version for Delphi 2010?
  8. Delphi pre-build event not executing BEFORE compile
  9. Why are TGeneric and TGeneric incompatible types?
  10. Free Encryption library for Delphi [closed]
  11. Free Encryption library for Delphi [closed]
  12. How to have Delphi TWebbrowser component running in IE9 mode?
  13. Profiler and Memory Analysis Tools for Delphi [closed]
  14. Split a string into an array of strings based on a delimiter
  15. Is Delphi “with” keyword a bad practice?
  16. How do I send a string from one instance of my Delphi program to another?
  17. Converting TMemoryStream to ‘String’ in Delphi 2009
  18. How to change the implementation (detour) of an externally declared function
  19. How to use Animated Gif in a delphi form
  20. Delphi code formatter
  21. Converting a string to TDateTime based on an arbitrary format
  22. Accessing protected event of TWinControl
  23. Using TRichEdit at runtime without defining a parent
  24. How to shell to another app and have it appear in a delphi form
  25. Delphi 2009: How to communicate between Windows service & desktop application under Vista?
  26. DecimalSeparator in SysUtils and System.SysUtils
  27. Resize PNG image
  28. Delphi control that could mimic “Add-ons|Extension list” of Firefox?
  29. How can I make AllocateHwnd threadsafe?
  30. How to cast a Interface to a Object in Delphi

Leave a Comment