Thanks, you are realy clever:))<br><br><div class="gmail_quote">2009/11/18 Frank Peelo <span dir="ltr"><<a href="mailto:f26p@eircom.net">f26p@eircom.net</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">
<div class="im">On 18/11/2009 08:10, yu ping wrote:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
Is there a way to declare a static varible in a function body? the varible should remain the value assigned from last call.<br>
</blockquote>
<br></div>
Typed constant, const /name/ : /type/ = /initial value/;<br>
Takes the initial value when the program starts, but you can assign new values to it. But the value remains constant between calls.<br>
<br>
e.g.<br>
<br>
Function NextI:Integer;<br>
const<br>
  NextValue:Integer = 0;<br>
Begin<br>
  NextI := NextValue;<br>
  NextValue := NextValue+1;<br>
end;<br>
<br>
var<br>
  x : Integer;<br>
Begin<br>
  for x := 1 to 10 do<br>
    writeln(NextI);<br>
end.<div><div></div><div class="h5"><br>
<br>
_______________________________________________<br>
fpc-pascal maillist  -  <a href="mailto:fpc-pascal@lists.freepascal.org" target="_blank">fpc-pascal@lists.freepascal.org</a><br>
<a href="http://lists.freepascal.org/mailman/listinfo/fpc-pascal" target="_blank">http://lists.freepascal.org/mailman/listinfo/fpc-pascal</a><br>
</div></div></blockquote></div><br><br><br>