Databases
StackOverflow2013
Postsdbo
POConverting TMemoryStream to 'String' in Delphi 2009
Body
 

Note that there are some explanatory texts on larger screens.

plurals
  1. POConverting TMemoryStream to 'String' in Delphi 2009
    text
    copied!<p>We had the following code prior to Delphi 2009:</p> <pre><code>&lt;span style="font: 10pt Courier New;"&gt;&lt;span class="pas1-reservedword"&gt;function&lt;/span&gt;&lt;span class="pas1-space"&gt; &lt;/span&gt;&lt;span class="pas1-identifier"&gt;MemoryStreamToString(M:&lt;/span&gt;&lt;span class="pas1-space"&gt; &lt;/span&gt;&lt;span class="pas1-identifier"&gt;TMemoryStream):&lt;/span&gt;&lt;span class="pas1-space"&gt; &lt;/span&gt;&lt;span class="pas1-reservedword"&gt;String&lt;/span&gt;&lt;span class="pas1-symbol"&gt;; &lt;/span&gt;&lt;span class="pas1-reservedword"&gt;var &lt;/span&gt;&lt;span class="pas1-space"&gt; &lt;/span&gt;&lt;span class="pas1-identifier"&gt;NewCapacity:&lt;/span&gt;&lt;span class="pas1-space"&gt; &lt;/span&gt;&lt;span class="pas1-identifier"&gt;Longint; &lt;/span&gt;&lt;span class="pas1-reservedword"&gt;begin &lt;/span&gt;&lt;span class="pas1-space"&gt; &lt;/span&gt;&lt;span class="pas1-reservedword"&gt;if&lt;/span&gt;&lt;span class="pas1-space"&gt; &lt;/span&gt;&lt;span class="pas1-symbol"&gt;(M.Size&lt;/span&gt;&lt;span class="pas1-space"&gt; &lt;/span&gt;&lt;span class="pas1-symbol"&gt;=&lt;/span&gt;&lt;span class="pas1-space"&gt; &lt;/span&gt;&lt;span class="pas1-number"&gt;0)&lt;/span&gt;&lt;span class="pas1-space"&gt; &lt;/span&gt;&lt;span class="pas1-reservedword"&gt;or&lt;/span&gt;&lt;span class="pas1-space"&gt; &lt;/span&gt;&lt;span class="pas1-symbol"&gt;(M.Memory&lt;/span&gt;&lt;span class="pas1-space"&gt; &lt;/span&gt;&lt;span class="pas1-symbol"&gt;=&lt;/span&gt;&lt;span class="pas1-space"&gt; &lt;/span&gt;&lt;span class="pas1-reservedword"&gt;nil&lt;/span&gt;&lt;span class="pas1-symbol"&gt;)&lt;/span&gt;&lt;span class="pas1-space"&gt; &lt;/span&gt;&lt;span class="pas1-reservedword"&gt;then &lt;/span&gt;&lt;span class="pas1-space"&gt; &lt;/span&gt;&lt;span class="pas1-identifier"&gt;Result:=&lt;/span&gt;&lt;span class="pas1-space"&gt; &lt;/span&gt;&lt;span class="pas1-string"&gt;'' &lt;/span&gt;&lt;span class="pas1-space"&gt; &lt;/span&gt;&lt;span class="pas1-reservedword"&gt;else &lt;/span&gt;&lt;span class="pas1-space"&gt; &lt;/span&gt;&lt;span class="pas1-reservedword"&gt;begin &lt;/span&gt;&lt;span class="pas1-space"&gt; &lt;/span&gt;&lt;span class="pas1-reservedword"&gt;if&lt;/span&gt;&lt;span class="pas1-space"&gt; &lt;/span&gt;&lt;span class="pas1-identifier"&gt;TMemoryStreamProtected(M).Capacity&lt;/span&gt;&lt;span class="pas1-space"&gt; &lt;/span&gt;&lt;span class="pas1-symbol"&gt;=&lt;/span&gt;&lt;span class="pas1-space"&gt; &lt;/span&gt;&lt;span class="pas1-identifier"&gt;M.Size&lt;/span&gt;&lt;span class="pas1-space"&gt; &lt;/span&gt;&lt;span class="pas1-reservedword"&gt;then &lt;/span&gt;&lt;span class="pas1-space"&gt; &lt;/span&gt;&lt;span class="pas1-reservedword"&gt;begin &lt;/span&gt;&lt;span class="pas1-space"&gt; &lt;/span&gt;&lt;span class="pas1-identifier"&gt;NewCapacity:=&lt;/span&gt;&lt;span class="pas1-space"&gt; &lt;/span&gt;&lt;span class="pas1-identifier"&gt;M.Size+1; &lt;/span&gt;&lt;span class="pas1-space"&gt; &lt;/span&gt;&lt;span class="pas1-identifier"&gt;TMemoryStreamProtected(M).Realloc(NewCapacity); &lt;/span&gt;&lt;span class="pas1-space"&gt; &lt;/span&gt;&lt;span class="pas1-reservedword"&gt;end&lt;/span&gt;&lt;span class="pas1-symbol"&gt;; &lt;/span&gt;&lt;span class="pas1-space"&gt; &lt;/span&gt;&lt;span class="pas1-identifier"&gt;NullString(M.Memory^)[M.Size]:=&lt;/span&gt;&lt;span class="pas1-space"&gt; &lt;/span&gt;&lt;span class="pas1-character"&gt;#0; &lt;/span&gt;&lt;span class="pas1-space"&gt; &lt;/span&gt;&lt;span class="pas1-identifier"&gt;Result:=&lt;/span&gt;&lt;span class="pas1-space"&gt; &lt;/span&gt;&lt;span class="pas1-identifier"&gt;StrPas(M.Memory); &lt;/span&gt;&lt;span class="pas1-space"&gt; &lt;/span&gt;&lt;span class="pas1-reservedword"&gt;end&lt;/span&gt;&lt;span class="pas1-symbol"&gt;; &lt;/span&gt;&lt;span class="pas1-reservedword"&gt;end&lt;/span&gt;&lt;span class="pas1-symbol"&gt;; &lt;/span&gt;&lt;/span&gt; </code></pre> <p>How might we convert this code to support Unicode now with Delphi 2009?</p>
 

Querying!

 
Guidance
An individual column

Larger individual text columns get their own page to allow for proper reading.

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload