следующая тема »

[23 Июль 2025, 11:55:45]

Новости, реклама:

[23 Июль 2025, 11:55:45]

Новости, реклама:

[Tal]

Ты изначально делаешь неправильно
Я подозреваю что ты через оле лезешь в цикле в ячейки эксцеля и уже лопатишь данные одной ячейки - ЭТО очень медленно, аш 3,14здец, неудивительно что система тормозит.

Я бы делал так : копировал бы в буфер диапазон данных эксцеля, причем блоками строк по 1000, потому что кинуть в буфер сразу 20мб текста тоже еб%%во. Далее :

procedure TForm1.BitBtn1Click(Sender: TObject);
var
 sl : TStringList;
 cp : TClipBoard;
begin
 cp := TClipBoard.Create;
 sl := TStringList.Create;
 try
   cp := TClipBoard.Create;
   sl.Text := cp.AsText;
   ShowMessage('Rec count : ' + IntToStr(sl.Count) + ' Text : ' + chr(10) + sl.Text);
   cp.Clear;
 finally
   cp.Free;
   sl.Free;
 end;
end;

все поля в строке отделены табами, а строки переносом строки, распарсить, можно пихнуть в структуру и потом анализируй себе это будет на порядок быстрее и система не зависнет, причем 20 - 30 мег - это не факт