<div>
use application.processmessage<wbr />s within your loop<br />
<br />
(will you really see it? -&gt; costs performance)
</div>


use application.processmessages within your loop

(will you really see it? -> costs performance)

<div>
A bit slow...anyway to speed it up?
</div>


<div>
you can change value:<br />
(runtime mod 100)<br />
change it<br />
(runtime mod 1000)
</div>


you can change value:
(runtime mod 100)
change it
(runtime mod 1000)

<div>
<div class="content wysiwyg-content">
Good day, everyone.<br />
<br />
I have a function to carry out that is trying to insert 100,000 record into a table.<br />
<br />
So, I try to implement in the following way:<br />
--------------------------<wbr />----------<wbr />----------<wbr />----------<wbr /><br />
procedure form1.Button1Click(Sender:<wbr /> TObject);<br />
var runLength, runtime : longint;<br />
begin<br />
runLength := 100,000;<br />
runtime := 1;<br />
<br />
While runtime &lt;= runLength do begin<br />
tableX.Append;<br />
tableXName.value := 'cust' + IntToStr(runtime);<br />
runtime := runtime + 1;<br />
tableX.post;<br />
end;<br />
<br />
tableX.close;<br />
end;<br />
--------------------------<wbr />----------<wbr />----------<wbr />----------<wbr />-<br />
<br />
Why I couldn't see the record being inserted into the grid while the loop is running.<br />
<br />
Thank you.<br />

</div>
</div>


Good day, everyone.

I have a function to carry out that is trying to insert 100,000 record into a table.

So, I try to implement in the following way:
--------------------------------------------------------
procedure form1.Button1Click(Sender: TObject);
var runLength, runtime : longint;
begin
runLength := 100,000;
runtime := 1;

While runtime <= runLength do begin
tableX.Append;
tableXName.value := 'cust' + IntToStr(runtime);
runtime := runtime + 1;
tableX.post;
end;

tableX.close;
end;
---------------------------------------------------------

Why I couldn't see the record being inserted into the grid while the loop is running.

Thank you.


Insert record loop not shown on the grid

Delphi is the most powerful Object Pascal IDE and component library for cross-platform Native App Development with flexible Cloud services and broad IoT connectivity. It provides powerful VCL controls for Windows 10 and enables FMX development for Windows, Mac and Mobile. Delphi is your choice for ultrafast Enterprise Strong Development™. Look for increased memory for large projects, extended multi-monitor support, improved Object Inspector and much more. Delphi is 5x faster for development and deployment across multiple desktop, mobile, cloud and database platforms including 32-bit and 64-bit Windows 10.