Converting TMemoryStream to ‘String’ in Delphi 2009

by

The code you have is unnecessarily complex, even for older Delphi versions. Why should fetching the string version of a stream force the stream’s memory to be reallocated, after all?

function MemoryStreamToString(M: TMemoryStream): string;
begin
  SetString(Result, PChar(M.Memory), M.Size div SizeOf(Char));
end;

That works in all Delphi versions, not just Delphi 2009. It works when the stream is empty without any special case. SetString is an under-appreciated function.

If the contents of your stream aren’t changing to Unicode with your switch to Delphi 2009, then you should use this function instead:

function MemoryStreamToString(M: TMemoryStream): AnsiString;
begin
  SetString(Result, PAnsiChar(M.Memory), M.Size);
end;

That’s equivalent to your original code, but skips the special cases.

More Related Contents:

  1. Split a string into an array of strings based on a delimiter
  2. Which variables are initialized when in Delphi?
  3. How should I prepare my 32-bit Delphi programs for an eventual 64-bit compiler? [duplicate]
  4. How do I make a PNG resource?
  5. Handling a Unicode String in Delphi Versions
  6. Step by step upgrade of Indy 10 in Delphi 2009
  7. Delphi 2009: How to communicate between Windows service & desktop application under Vista?
  8. How to get a stack trace from FastMM
  9. Faster DirectoryExists function?
  10. What are major incentives to upgrade to D2009 (Unicode excluded)?
  11. How to cast a Interface to a Object in Delphi
  12. Why should I not use “if Assigned()” before accessing objects?
  13. Why cannot take address to a nested local function in 64 bit Delphi?
  14. Debugging Access Violation errors?
  15. System Error. Code: 8. Not enough storage is available to process this command
  16. Delphi 2010: How to save a whole record to a file?
  17. Registration-free COM/DLL?
  18. I do not understand what Application.ProcessMessages in Delphi is doing [closed]
  19. How do I let Delphi know I’ve already handled an exception?
  20. How do I translate a C union into Delphi?
  21. TThreadedQueue not capable of multiple consumers?
  22. How do I run a command-line program in Delphi?
  23. Should the compiler hint/warn when passing object instances directly as const interface parameters?
  24. How can I display Crystal XI reports inside a Delphi 2007 application?
  25. My program never releases the memory back. Why?
  26. Patch routine call in delphi
  27. What is internal representation of string in Python 3.x
  28. converting narrow string to wide string
  29. Resize PNG image
  30. Delphi control that could mimic “Add-ons|Extension list” of Firefox?

Leave a Comment