<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
</head>
<body text="#000000" bgcolor="#FFFFFF">
<div class="moz-cite-prefix">On 9/23/2019 3:53 PM, James Richters
wrote:<br>
</div>
<blockquote type="cite"
cite="mid:2c0201d57261$bfccc580$3f665080$@productionautomation.net">
<pre class="moz-quote-pre" wrap="">I have ported Turbo Pascal code but then use Sysutils instead of DOS, my intention was to convert it to a windows console application that used windows features, and I had no interest in maintaining Turbo Pascal backward compatibility, and the use of findfirst, findnext, etc, was part of the code that never changed. I actually was not aware that there even was a command called findclose, and I never did it in Turbo Pascal.. it IS in there now, and I believe it was a discussion on this list that prompted me to add it. Anyway, just wanted to say, there are reasons to want to port Turbo Pascal code and then switch over to systutils, so having documentation that includes the differences between the versions would be helpful.
</pre>
</blockquote>
<p>Turbo Pascal (for DOS) didn't have a FindClose function, as
"officially", this would not be necessary on DOS. On all other OS,
including Windows, for many, many years (I first stumbled about
missing "FindClose" call in OS/2 some time in the early '90s) and
got used to <b>alway</b><b>s</b> terminate a file search with it,
even if it is in the case of DOS just a dummy routine that just
returns without doing nothing. Saves a lot of headaches trying to
find the source of apparent memory leaks in larger applications
that do a lot of of file searches...</p>
<p>Ralf<br>
</p>
<div id="DAB4FAD8-2DD7-40BB-A1B8-4E2AA1F9FDF2"><br />
<table style="border-top: 1px solid #D3D4DE;">
<tr>
<td style="width: 55px; padding-top: 13px;"><a href="https://www.avast.com/sig-email?utm_medium=email&utm_source=link&utm_campaign=sig-email&utm_content=emailclient&utm_term=icon" target="_blank"><img src="https://ipmcdn.avast.com/images/icons/icon-envelope-tick-round-orange-animated-no-repeat-v1.gif" alt="" width="46" height="29" style="width: 46px; height: 29px;" /></a></td>
<td style="width: 470px; padding-top: 12px; color: #41424e; font-size: 13px; font-family: Arial, Helvetica, sans-serif; line-height: 18px;">Virus-free. <a href="https://www.avast.com/sig-email?utm_medium=email&utm_source=link&utm_campaign=sig-email&utm_content=emailclient&utm_term=link" target="_blank" style="color: #4453ea;">www.avast.com</a>
</td>
</tr>
</table><a href="#DAB4FAD8-2DD7-40BB-A1B8-4E2AA1F9FDF2" width="1" height="1"> </a></div></body>
</html>