<html>
<head>
<meta content="text/html; charset=ISO-8859-1"
http-equiv="Content-Type">
</head>
<body text="#000000" bgcolor="#FFFFFF">
<div class="moz-cite-prefix">On 07/07/2014 11:08, Justin Smyth
wrote:<br>
</div>
<blockquote
cite="mid:002401cf99cb$6b61b510$42251f30$@smythconsulting.net"
type="cite">
<meta http-equiv="Content-Type" content="text/html;
charset=ISO-8859-1">
<meta name="Generator" content="Microsoft Word 14 (filtered
medium)">
<style><!--
/* Font Definitions */
@font-face
{font-family:Wingdings;
panose-1:5 0 0 0 0 0 0 0 0 0;}
@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;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0cm;
margin-bottom:.0001pt;
font-size:11.0pt;
font-family:"Calibri","sans-serif";
mso-fareast-language:EN-US;}
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;}
span.EmailStyle17
{mso-style-type:personal-compose;
font-family:"Calibri","sans-serif";
color:windowtext;}
.MsoChpDefault
{mso-style-type:export-only;
font-family:"Calibri","sans-serif";
mso-fareast-language:EN-US;}
@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]-->
<div class="WordSection1">
<p class="MsoNormal">Hi folks , <o:p></o:p></p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal">I’m trying to make a copy of
GDBMiServerDebugger, to allow some extra gdb commands to be
saved and parsed.<o:p></o:p></p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal">In the list of properties I want to add a
list of strings to save, ie ( assuming i have changed the name
of the class , I am just copying out of the original<o:p></o:p></p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal">I want to store 3 or 4 extra commands I
want gdb to run when It executes my arm file via open ocd gdb.
<o:p></o:p></p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal">TGDBMIServerDebuggerProperties =
class(TGDBMIDebuggerPropertiesBase)<o:p></o:p></p>
<p class="MsoNormal"> private<o:p></o:p></p>
<p class="MsoNormal"> FDebugger_Remote_Hostname: string;<o:p></o:p></p>
<p class="MsoNormal"> FDebugger_Remote_Port: string;<o:p></o:p></p>
<p class="MsoNormal">-<span style="font-family:Wingdings">à</span>
FDebugger_Custom_List:TStringList <span
style="font-family:Wingdings">ß</span><o:p></o:p></p>
<p class="MsoNormal"> public <o:p></o:p></p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal">is this possible ? if I do this I need to
add FDebugger_Custom_List = TStringList.create; into the
constructor listed below<o:p></o:p></p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal">constructor
TGDBMIServerDebuggerProperties.Create;</p>
</div>
</blockquote>
<br>
Yes, the object needs to be present, so it can be used in the OI.<br>
<br>
You probably also need a setter for the propert<br>
<br>
procedure SetDebugger_Custom_List( New:TStringList <span
style="font-family:Wingdings"></span>);<br>
FDebugger_Custom_List.assign(New);<br>
<br>
<br>
and a destructor to free it.Do not forget to add all of your fields
to the ASSIGN method too. <br>
<br>
And last note, I have not looked at how this is stringified when
saved. So I do not know if it works with TStrings (it should...)<br>
</body>
</html>