<div dir="ltr">Appologies!<div><br></div><div style>Sent to the wrong list, dammit :blush:</div></div><div class="gmail_extra"><br><br><div class="gmail_quote">On 17 June 2013 12:17, Dave Coventry <span dir="ltr"><<a href="mailto:dgcoventry@gmail.com" target="_blank">dgcoventry@gmail.com</a>></span> wrote:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr">I have a unit in which I'm parsing a large text file.<div><br></div><div>I have around 50 (or more!) IF statements as below:</div>
<div><br></div><div><div>if Pos('  Center Point',OdReadstrings.Strings[i])>0 then</div>
<div>                val+=',PT='+getParam(PChar(OdReadstrings.Strings[i]))</div><div>else if Pos('  Custom Scale',OdReadstrings.Strings[i])>0 then</div><div>                val+=',SC='+getParam(PChar(OdReadstrings.Strings[i]))</div>

<div>else if Pos('  Check',OdReadstrings.Strings[i])=1 then</div><div>                val+=',FZ='+getParam(PChar(OdReadstrings.Strings[i]))</div><div>else if Pos('  Min Extents',OdReadstrings.Strings[i])>0 then</div>

<div>                val+=',MN='+getParam(PChar(OdReadstrings.Strings[i]))</div><div>else if Pos('  Max Extents',OdReadstrings.Strings[i])>0 then  etc, etc.</div><div><br></div><div>No error is generated from this code, per se, but on closing the programme there is an External SIGSEVV genterated in lclrescache.pas at line 186.</div>

<div><br></div><div>The offending line:</div><div><br></div><div>Cache.RemoveItem(Self);<br></div><div><br></div><div>Can anyone see what's going on here? Alternatively, is there a better way of parsing a large text file for phrases?</div>

<div><br></div><div>Many thanks,</div><div><br></div><div>Dave Coventry</div></div></div>
</blockquote></div><br></div>