<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns:m="http://schemas.microsoft.com/office/2004/12/omml" xmlns="http://www.w3.org/TR/REC-html40">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=us-ascii">
<meta name="Generator" content="Microsoft Word 14 (filtered medium)">
<!--[if !mso]><style>v\:* {behavior:url(#default#VML);}
o\:* {behavior:url(#default#VML);}
w\:* {behavior:url(#default#VML);}
.shape {behavior:url(#default#VML);}
</style><![endif]--><style><!--
/* Font Definitions */
@font-face
{font-family:"Cambria Math";
panose-1:2 4 5 3 5 4 6 3 2 4;}
@font-face
{font-family:Calibri;
panose-1:2 15 5 2 2 2 4 3 2 4;}
@font-face
{font-family:Tahoma;
panose-1:2 11 6 4 3 5 4 4 2 4;}
@font-face
{font-family:Consolas;
panose-1:2 11 6 9 2 2 4 3 2 4;}
@font-face
{font-family:"Trebuchet MS";
panose-1:2 11 6 3 2 2 2 2 2 4;}
@font-face
{font-family:Webdings;
panose-1:5 3 1 2 1 5 9 6 7 3;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0cm;
margin-bottom:.0001pt;
font-size:11.0pt;
font-family:"Calibri","sans-serif";
color:black;}
a:link, span.MsoHyperlink
{mso-style-priority:99;
color:blue;
text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
{mso-style-priority:99;
color:purple;
text-decoration:underline;}
pre
{mso-style-priority:99;
mso-style-link:"HTML Preformatted Char";
margin:0cm;
margin-bottom:.0001pt;
font-size:10.0pt;
font-family:"Courier New";
color:black;}
p.MsoAcetate, li.MsoAcetate, div.MsoAcetate
{mso-style-priority:99;
mso-style-link:"Balloon Text Char";
margin:0cm;
margin-bottom:.0001pt;
font-size:8.0pt;
font-family:"Tahoma","sans-serif";
color:black;}
span.HTMLPreformattedChar
{mso-style-name:"HTML Preformatted Char";
mso-style-priority:99;
mso-style-link:"HTML Preformatted";
font-family:Consolas;
color:black;}
span.BalloonTextChar
{mso-style-name:"Balloon Text Char";
mso-style-priority:99;
mso-style-link:"Balloon Text";
font-family:"Tahoma","sans-serif";}
p.element10, li.element10, div.element10
{mso-style-name:element10;
mso-margin-top-alt:auto;
margin-right:0cm;
mso-margin-bottom-alt:auto;
margin-left:0cm;
font-size:12.0pt;
font-family:"Times New Roman","serif";
color:black;}
span.EmailStyle22
{mso-style-type:personal;
font-family:"Calibri","sans-serif";
color:#1F497D;}
span.EmailStyle23
{mso-style-type:personal;
font-family:"Calibri","sans-serif";
color:#1F497D;}
span.EmailStyle24
{mso-style-type:personal;
font-family:"Calibri","sans-serif";
color:#1F497D;}
span.EmailStyle25
{mso-style-type:personal;
font-family:"Calibri","sans-serif";
color:#1F497D;}
span.EmailStyle26
{mso-style-type:personal-reply;
font-family:"Calibri","sans-serif";
color:#1F497D;}
.MsoChpDefault
{mso-style-type:export-only;
font-size:10.0pt;}
@page WordSection1
{size:612.0pt 792.0pt;
margin:72.0pt 72.0pt 72.0pt 72.0pt;}
div.WordSection1
{page:WordSection1;}
--></style><!--[if gte mso 9]><xml>
<o:shapedefaults v:ext="edit" spidmax="1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext="edit">
<o:idmap v:ext="edit" data="1" />
</o:shapelayout></xml><![endif]-->
</head>
<body bgcolor="white" lang="EN-NZ" link="blue" vlink="purple">
<div class="WordSection1">
<p class="MsoNormal"><span style="font-size:12.0pt;color:#1F497D">a := 'abcdefghixxxx';<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;color:#1F497D">b := 'jklmnopqr';<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;color:#1F497D">StrCopy(a,b);<o:p></o:p></span></p>
<p class="MsoNormal"><span style="color:#1F497D"><o:p> </o:p></span></p>
<p class="MsoNormal"><span style="color:#1F497D">You made source longer. The dest needs to be strlen(source)+1<o:p></o:p></span></p>
<p class="MsoNormal"><span style="color:#1F497D"><o:p> </o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;color:#1F497D">a := 'abcdefghi';<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;color:#1F497D">b := 'jklmnopqrxxxx';<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;color:#1F497D">StrCopy(a,b);<o:p></o:p></span></p>
<p class="MsoNormal"><span style="color:#1F497D"><o:p> </o:p></span></p>
<p class="MsoNormal"><span style="color:#1F497D"><o:p> </o:p></span></p>
<p class="MsoNormal"><span style="color:#1F497D"><o:p> </o:p></span></p>
<table class="MsoNormalTable" border="0" cellpadding="0" width="700" style="width:525.0pt">
<tbody>
<tr style="height:26.25pt">
<td colspan="4" style="padding:0cm 0cm 0cm 0cm;height:26.25pt">
<p class="MsoNormal"><b><span style="font-family:"Trebuchet MS","sans-serif";color:#122029">Cameron Hart
</span></b><span style="font-size:9.0pt;font-family:"Trebuchet MS","sans-serif";color:#1F497D"><o:p></o:p></span></p>
</td>
</tr>
<tr>
<td width="23" style="width:17.25pt;padding:0cm 0cm 0cm 0cm"></td>
<td style="padding:0cm 0cm 0cm 0cm">
<p class="MsoNormal"><b><span style="font-size:9.0pt;font-family:"Trebuchet MS","sans-serif";color:#92C75F">Flow Software Limited
</span></b><span style="font-size:9.0pt;font-family:"Trebuchet MS","sans-serif";color:#1F497D"><o:p></o:p></span></p>
</td>
<td width="5" rowspan="4" valign="bottom" style="width:3.75pt;padding:0cm 0cm 0cm 0cm">
<p class="MsoNormal"><span style="color:#1F497D"><img width="1" height="55" id="Picture_x0020_1" src="cid:image001.jpg@01CE4F65.B154A9D0" alt="cid:image004.jpg@01CE44FA.D77C3F80"></span><span style="font-size:9.0pt;font-family:"Trebuchet MS","sans-serif";color:#1F497D"><o:p></o:p></span></p>
</td>
<td style="padding:0cm 0cm 0cm 0cm"></td>
<td style="padding:0cm 0cm 0cm 0cm"></td>
<td rowspan="4" style="padding:0cm 0cm 0cm 0cm">
<p class="MsoNormal"><span style="color:#1F497D"><img width="158" height="38" id="Picture_x0020_2" src="cid:image002.jpg@01CE4F65.B154A9D0" alt="Flow"></span><span style="font-size:9.0pt;font-family:"Trebuchet MS","sans-serif";color:#1F497D"><o:p></o:p></span></p>
</td>
</tr>
<tr>
<td style="padding:0cm 0cm 0cm 0cm"></td>
<td style="padding:0cm 0cm 0cm 0cm">
<p class="MsoNormal"><span style="font-size:8.0pt;font-family:"Trebuchet MS","sans-serif";color:#122029">PO Box 302 768, North Harbour
</span><span style="font-size:9.0pt;font-family:"Trebuchet MS","sans-serif";color:#1F497D"><o:p></o:p></span></p>
</td>
<td style="padding:0cm 0cm 0cm 0cm">
<p class="MsoNormal"><b><span style="font-size:8.0pt;font-family:"Trebuchet MS","sans-serif";color:#92C75F">P
</span></b><span style="font-size:9.0pt;font-family:"Trebuchet MS","sans-serif";color:#1F497D"><o:p></o:p></span></p>
</td>
<td style="padding:0cm 0cm 0cm 0cm">
<p class="MsoNormal"><span style="font-size:8.0pt;font-family:"Trebuchet MS","sans-serif";color:#122029">+64 9 476 3569 x910
</span><span style="font-size:9.0pt;font-family:"Trebuchet MS","sans-serif";color:#1F497D"><o:p></o:p></span></p>
</td>
</tr>
<tr>
<td style="padding:0cm 0cm 0cm 0cm"></td>
<td style="padding:0cm 0cm 0cm 0cm">
<p class="MsoNormal"><span style="font-size:8.0pt;font-family:"Trebuchet MS","sans-serif";color:#122029">Auckland 0751, New Zealand
</span><span style="font-size:9.0pt;font-family:"Trebuchet MS","sans-serif";color:#1F497D"><o:p></o:p></span></p>
</td>
<td style="padding:0cm 0cm 0cm 0cm">
<p class="MsoNormal"><b><span style="font-size:8.0pt;font-family:"Trebuchet MS","sans-serif";color:#92C75F">M
</span></b><span style="font-size:9.0pt;font-family:"Trebuchet MS","sans-serif";color:#1F497D"><o:p></o:p></span></p>
</td>
<td style="padding:0cm 0cm 0cm 0cm">
<p class="MsoNormal"><span style="font-size:8.0pt;font-family:"Trebuchet MS","sans-serif";color:#122029">+64 21 222 3569
</span><span style="font-size:9.0pt;font-family:"Trebuchet MS","sans-serif";color:#1F497D"><o:p></o:p></span></p>
</td>
</tr>
<tr>
<td style="padding:0cm 0cm 0cm 0cm"></td>
<td style="padding:0cm 0cm 0cm 0cm">
<p class="MsoNormal"><span style="color:#1F497D"><a href="http://www.flowsoftware.co.nz"><span style="font-size:8.0pt;font-family:"Trebuchet MS","sans-serif";color:#122029">www.flowsoftware.co.nz
</span></a></span><span style="font-size:9.0pt;font-family:"Trebuchet MS","sans-serif";color:#1F497D"><o:p></o:p></span></p>
</td>
<td style="padding:0cm 0cm 0cm 0cm">
<p class="MsoNormal"><b><span style="font-size:8.0pt;font-family:"Trebuchet MS","sans-serif";color:#92C75F">E
</span></b><span style="font-size:9.0pt;font-family:"Trebuchet MS","sans-serif";color:#1F497D"><o:p></o:p></span></p>
</td>
<td style="padding:0cm 0cm 0cm 0cm">
<p class="MsoNormal"><span style="color:#1F497D"><a href="mailto:cameron.hart@flowsoftware.co.nz"><span style="font-size:8.0pt;font-family:"Trebuchet MS","sans-serif";color:#122029">cameron.hart@flowsoftware.co.nz
</span></a></span><span style="font-size:9.0pt;font-family:"Trebuchet MS","sans-serif";color:#1F497D"><o:p></o:p></span></p>
</td>
</tr>
</tbody>
</table>
<p class="MsoNormal"><span style="color:#1F497D"> </span><span style="font-size:9.0pt;font-family:"Trebuchet MS","sans-serif";color:#1F497D"><o:p></o:p></span></p>
<table class="MsoNormalTable" border="0" cellpadding="0" width="650" style="width:487.5pt">
<tbody>
<tr style="height:26.25pt">
<td style="padding:0cm 0cm 0cm 0cm;height:26.25pt">
<p class="MsoNormal"><span style="font-size:7.0pt;font-family:"Trebuchet MS","sans-serif";color:#122029">This message is intended for the addressee named above. It may contain privileged or confidential information. If you are not the intended recipient of
this message you must not use, copy, distribute or disclose it to anyone. </span>
<span style="font-size:9.0pt;font-family:"Trebuchet MS","sans-serif";color:#1F497D"><o:p></o:p></span></p>
</td>
</tr>
</tbody>
</table>
<p class="MsoNormal"><span style="font-size:8.0pt;color:#92C75F"> </span><span style="color:#1F497D">
</span><span style="font-size:8.0pt;font-family:Webdings;color:#92C75F">P</span><span style="color:#1F497D">
</span><span style="font-size:7.0pt;font-family:"Trebuchet MS","sans-serif";color:#122029">Please consider the environment before printing this email</span><span style="color:#1F497D">
</span><span style="font-size:9.0pt;font-family:"Trebuchet MS","sans-serif";color:#1F497D"><o:p></o:p></span></p>
<p class="MsoNormal"><span style="color:#1F497D"><o:p> </o:p></span></p>
<div>
<div style="border:none;border-top:solid #B5C4DF 1.0pt;padding:3.0pt 0cm 0cm 0cm">
<p class="MsoNormal"><b><span lang="EN-US" style="font-size:10.0pt;font-family:"Tahoma","sans-serif";color:windowtext">From:</span></b><span lang="EN-US" style="font-size:10.0pt;font-family:"Tahoma","sans-serif";color:windowtext"> delphi-bounces@listserver.123.net.nz
[mailto:delphi-bounces@listserver.123.net.nz] <b>On Behalf Of </b>Ross Levis<br>
<b>Sent:</b> Sunday, 12 May 2013 5:20 p.m.<br>
<b>To:</b> 'NZ Borland Developers Group - Delphi List'<br>
<b>Subject:</b> Re: [DUG] StrCopy problem<o:p></o:p></span></p>
</div>
</div>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal"><span style="font-size:12.0pt;color:#1F497D">I did read that previously a few times. Ok, so I should make A longer by 1 character? I think A is already 10 characters long with a #0 at the end.<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;color:#1F497D"><o:p> </o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;color:#1F497D">Anyway, I changed it to the following.<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;color:#1F497D">a := 'abcdefghixxxx';<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;color:#1F497D">b := 'jklmnopqr';<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;color:#1F497D">StrCopy(a,b);<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;color:#1F497D"><o:p> </o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;color:#1F497D">Still an access violation in StrCopy.<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;color:#1F497D"><o:p> </o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;color:#1F497D"><o:p> </o:p></span></p>
<div>
<div style="border:none;border-top:solid #B5C4DF 1.0pt;padding:3.0pt 0cm 0cm 0cm">
<p class="MsoNormal"><b><span lang="EN-US" style="font-size:10.0pt;font-family:"Tahoma","sans-serif";color:windowtext">From:</span></b><span lang="EN-US" style="font-size:10.0pt;font-family:"Tahoma","sans-serif";color:windowtext">
<a href="mailto:delphi-bounces@listserver.123.net.nz">delphi-bounces@listserver.123.net.nz</a> [<a href="mailto:delphi-bounces@listserver.123.net.nz">mailto:delphi-bounces@listserver.123.net.nz</a>]
<b>On Behalf Of </b>David Moorhouse<br>
<b>Sent:</b> Sunday, 12 May 2013 3:26 PM<br>
<b>To:</b> <a href="mailto:delphi@listserver.123.net.nz">delphi@listserver.123.net.nz</a><br>
<b>Subject:</b> Re: [DUG] StrCopy problem<o:p></o:p></span></p>
</div>
</div>
<p class="MsoNormal"><o:p> </o:p></p>
<div>
<p class="MsoNormal">Your answer is in the help file<o:p></o:p></p>
<p class="element10"><i>Use StrCopy to copy Source to Dest. StrCopy returns Dest. </i><o:p></o:p></p>
<p class="element10"><i>StrCpy does not perform any length checking. The destination buffer must have room for at least
<a href="http://docs.embarcadero.com/products/rad_studio/delphiAndcpp2009/HelpUpdate2/EN/html/delphivclwin32/SysUtils_StrLen@PAnsiChar.html">
StrLen</a>(Source)+1 characters. </i><o:p></o:p></p>
<p class="element10"><i>For length checking, use the <a href="http://docs.embarcadero.com/products/rad_studio/delphiAndcpp2009/HelpUpdate2/EN/html/delphivclwin32/SysUtils_StrLCopy@PAnsiChar@PAnsiChar@Cardinal.html">
StrLCopy</a> function. </i><o:p></o:p></p>
<p class="MsoNormal"><i><br>
</i><br>
D<br>
<br>
<br>
On 12/05/13 14:45, Ross Levis wrote:<o:p></o:p></p>
</div>
<blockquote style="margin-top:5.0pt;margin-bottom:5.0pt">
<p class="MsoNormal"><span style="font-size:12.0pt;color:#1F497D">Doesn’t really help.</span><o:p></o:p></p>
<p class="MsoNormal"><span style="font-size:12.0pt;color:#1F497D"> </span><o:p></o:p></p>
<p class="MsoNormal"><span style="font-size:12.0pt;color:#1F497D">a := 'abcdefghi' does allocate 9 bytes of RAM. I can access a and b after it is assigned. The problem is StrCopy crashes. I would expect “a” to have the same string as b once this is executed.</span><o:p></o:p></p>
<p class="MsoNormal"><span style="font-size:12.0pt;color:#1F497D"> </span><o:p></o:p></p>
<p class="MsoNormal"><span style="font-size:12.0pt;color:#1F497D">Ross.</span><o:p></o:p></p>
<p class="MsoNormal"><span style="font-size:12.0pt;color:#1F497D"> </span><o:p></o:p></p>
<div>
<div style="border:none;border-top:solid #B5C4DF 1.0pt;padding:3.0pt 0cm 0cm 0cm">
<p class="MsoNormal"><b><span lang="EN-US" style="font-size:10.0pt;font-family:"Tahoma","sans-serif"">From:</span></b><span lang="EN-US" style="font-size:10.0pt;font-family:"Tahoma","sans-serif"">
<a href="mailto:delphi-bounces@listserver.123.net.nz">delphi-bounces@listserver.123.net.nz</a> [<a href="mailto:delphi-bounces@listserver.123.net.nz">mailto:delphi-bounces@listserver.123.net.nz</a>]
<b>On Behalf Of </b>Keith Allpress<br>
<b>Sent:</b> Sunday, 12 May 2013 10:27 AM<br>
<b>To:</b> 'NZ Borland Developers Group - Delphi List'<br>
<b>Subject:</b> Re: [DUG] StrCopy problem</span><o:p></o:p></p>
</div>
</div>
<p class="MsoNormal"> <o:p></o:p></p>
<p class="MsoNormal"><span style="color:#1F497D">Perhaps:</span><o:p></o:p></p>
<p class="MsoNormal"><span style="color:#1F497D"><a href="http://rvelthuis.de/articles/articles-pchars.html">http://rvelthuis.de/articles/articles-pchars.html</a></span><o:p></o:p></p>
<p class="MsoNormal"><span style="color:#1F497D"> </span><o:p></o:p></p>
<p class="MsoNormal"><span style="color:#1F497D"> </span><o:p></o:p></p>
<div>
<div style="border:none;border-top:solid #E1E1E1 1.0pt;padding:3.0pt 0cm 0cm 0cm">
<p class="MsoNormal"><b><span lang="EN-US">From:</span></b><span lang="EN-US"> <a href="mailto:delphi-bounces@listserver.123.net.nz">
delphi-bounces@listserver.123.net.nz</a> [<a href="mailto:delphi-bounces@listserver.123.net.nz">mailto:delphi-bounces@listserver.123.net.nz</a>]
<b>On Behalf Of </b>Ross Levis<br>
<b>Sent:</b> Sunday, 12 May 2013 2:39 a.m.<br>
<b>To:</b> 'NZ Borland Developers Group - Delphi List'<br>
<b>Subject:</b> [DUG] StrCopy problem</span><o:p></o:p></p>
</div>
</div>
<p class="MsoNormal"> <o:p></o:p></p>
<p class="MsoNormal"><span style="font-size:12.0pt;color:#1F497D">var</span><o:p></o:p></p>
<p class="MsoNormal"><span style="font-size:12.0pt;color:#1F497D"> a: pChar;</span><o:p></o:p></p>
<p class="MsoNormal"><span style="font-size:12.0pt;color:#1F497D"> b: pChar;</span><o:p></o:p></p>
<p class="MsoNormal"><span style="font-size:12.0pt;color:#1F497D">begin</span><o:p></o:p></p>
<p class="MsoNormal"><span style="font-size:12.0pt;color:#1F497D"> a := 'abcdefghi';</span><o:p></o:p></p>
<p class="MsoNormal"><span style="font-size:12.0pt;color:#1F497D"> b := 'jklmnopqr';</span><o:p></o:p></p>
<p class="MsoNormal"><span style="font-size:12.0pt;color:#1F497D"> StrCopy(a,b);</span><o:p></o:p></p>
<p class="MsoNormal"><span style="font-size:12.0pt;color:#1F497D">end;</span><o:p></o:p></p>
<p class="MsoNormal"><span style="font-size:12.0pt;color:#1F497D"> </span><o:p></o:p></p>
<p class="MsoNormal"><span style="font-size:12.0pt;color:#1F497D">Question: Why does this code crash?</span><o:p></o:p></p>
<p class="MsoNormal"><span style="font-size:12.0pt;color:#1F497D"> </span><o:p></o:p></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span style="font-size:12.0pt;font-family:"Times New Roman","serif""><br>
<br>
<o:p></o:p></span></p>
<pre>_______________________________________________<o:p></o:p></pre>
<pre>NZ Borland Developers Group - Delphi mailing list<o:p></o:p></pre>
<pre>Post: <a href="mailto:delphi@listserver.123.net.nz">delphi@listserver.123.net.nz</a><o:p></o:p></pre>
<pre>Admin: <a href="http://delphi.org.nz/mailman/listinfo/delphi">http://delphi.org.nz/mailman/listinfo/delphi</a><o:p></o:p></pre>
<pre>Unsubscribe: send an email to <a href="mailto:delphi-request@listserver.123.net.nz">delphi-request@listserver.123.net.nz</a> with Subject: unsubscribe<o:p></o:p></pre>
</blockquote>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:"Times New Roman","serif""><o:p> </o:p></span></p>
<div class="MsoNormal" align="center" style="text-align:center"><span style="font-size:12.0pt;font-family:"Times New Roman","serif";color:windowtext">
<hr size="1" width="100%" noshade="" style="color:#A0A0A0" align="center">
</span></div>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><span style="font-size:12.0pt;font-family:"Times New Roman","serif";color:windowtext">No virus found in this message.<br>
Checked by AVG - <a href="http://www.avg.com">www.avg.com</a><br>
Version: 2013.0.3336 / Virus Database: 3162/6317 - Release Date: 05/11/13<o:p></o:p></span></p>
</div>
</body>
</html>