Saudações, a todos
Este trecho de código faz parte de um outro que eu uso pra pra puxar textos externos concatenados é muita coisa e está funcionando, só que no projeto aqui quando em prena carga está levando 11 minutos pra terminar a execução, então estou tentando exugar o código pra ver se resolve e vai diminuindo este tempo.
Teria como enxugar este código aqui?
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 do memo49.Lines.add(StringGrid1.Cells[i,12]) end ;