Delphi if structure

Question

Greetings to you all

This piece of code is part of another one that I use to pull external texts concatenated is a lot and it’s working, only in the project here when in a load is taking 11 minutes to finish the execution, so I’m trying to exhume the code to see if it solves and decreasing this time.

You could wipe this code right here?

begin 
if StringGrid1.Cells[1,3]  ('')  then 
for i:=1 to 100 do memo40.Lines.add(StringGrid1.Cells[i,3]) 
end ;

begin 
if StringGrid1.Cells[1,4]  ('')  then 
for i:=1 to 100 do memo41.Lines.add(StringGrid1.Cells[i,4]) 
end ;

begin 
if StringGrid1.Cells[1,5]  ('')  then 
for i:=1 to 100 do memo42.Lines.add(StringGrid1.Cells[i,5]) 
end ;

begin if StringGrid1.Cells[1,6]  ('')  then 
for i:=1 to 100 do memo43.Lines.add(StringGrid1.Cells[i,6]) 
end ;

begin 
if StringGrid1.Cells[1,7]  ('')  then 
for i:=1 to 100 do memo44.Lines.add(StringGrid1.Cells[i,7])
end ;

begin 
if StringGrid1.Cells[1,8]  ('')  
then for i:=1 to 100 do memo45.Lines.add(StringGrid1.Cells[i,8]) 
end ;

begin 
if StringGrid1.Cells[1,9]  ('')  then 
for i:=1 to 100 do memo46.Lines.add(StringGrid1.Cells[i,9]) 
end ;

begin 
if StringGrid1.Cells[1,10] ('')  then 
for i:=1 to 100 do memo47.Lines.add(StringGrid1.Cells[i,10])
end ;

begin if StringGrid1.Cells[1,11] ('')  then 
for i:=1 to 100 do memo48.Lines.add(StringGrid1.Cells[i,11])
end ;

Begin if Stringgrid1.Cells[1,12] ('') then for i:=1 to 100 of memo49.Lines.add(Stringgrid1.Cells[i,12]) end ;

Answer 1

memo40.Lines.BeginUpdate;
for j := 3 to 12 do
    if  StringGrid1.Cells[1, j]('') then
        for i := 1 to 100 do
            memo40.Lines.add(StringGrid1.Cells[i, j]);
memo40.Lines.EndUpdate;

It is necessary to declare j where you declare i.

The use of BeginUpdate and EndUpdate should substantially increase the speed of the operation. Without this, Delphi will update the element to every new line that is added, which is unnecessarily time consuming.