Есть скрипт:
- Код: Выделить всё
procedure TForm1.BitBtn1Click(Sender: TObject);
var
tme: TDateTime;
i:Integer;
begin
tme:=now;
StringGrid1.Clean;
for i:=1 to 10000 do StringGrid1.InsertRowWithValues(i,['Первая','Вторая','Третья','Четвертая','Пятая']);
ShowMessage(TimeToStr(now-tme));
end;
В общем время выполнения данного скрипта: 8 сек.
Как уменьшить время выполнения?