Delphi и excel 2010

[Immo]

Суть проблемы в том, что запись значений передаваемые на эксель очень низкие, примерно 2 в секунду, а у меня их около 1000. Не знаю в чем проблема, но в универе работает прекрасно. Стоит дельфи 7 и 2010 эксель.

[Аватар]

Там и правда скорость взаимодействия через OleVariant низкая. Но не настолько же. Где-то что-то намудрил

[Immo]

так а поподробней с чем это связанно и как исправить?

[FaTaL]

Код в студию, а мы посмотрим. 1000 значений занести в Excel это дело нескольких миллисекунд, не считая самого открытия Excel.

[Immo]

procedure TForm1.Button1Click(Sender: TObject);
var
 px,py:longint;
 excel:variant;
 s:string;
begin
 try
  excel:=CreateOleObject('excel.application');
  excel.displayalerts:=false;
  excel.workbooks.add;
  excel.workbooks[1].worksheets[1].name:='y=sin(x)';
  excel.workbooks[1].worksheets[1].columns[1].numberFormat:='0,00';
  excel.workbooks[1].worksheets[1].columns[2].numberFormat:='0,0000';
  excel.workbooks[1].worksheets[1].range['a1:i1'].merge;
  excel.workbooks[1].worksheets[1].range['a1'].value:='Ãðàôèê ôóíêöèè y=sin(x)';
  excel.workbooks[1].worksheets[1].range['a1'].Font.Size:=14;
  excel.workbooks[1].worksheets[1].range['a2'].value:='x';
  excel.workbooks[1].worksheets[1].range['b2'].value:='y';
  excel.workbooks[1].worksheets[1].Range['A2:B'+inttostr(image1.Width+3)].Select;
  Excel.Selection.Borders.LineStyle:=1;

for px:=0 to  image1.Width do
   begin
   s:='a'+inttostr(px+3);
     excel.workbooks[1].worksheets[1].range[s].value:=px*4*Pi/ClientWidth;
   s:='b'+inttostr(px+3);
     excel.workbooks[1].worksheets[1].range[s].value:=sin(px*4*Pi/ClientWidth);
  end;

 excel.Visible:=true;
 excel:= Unassigned;

 Except
 ShowMessage('OMG ERROR');
 excel.Application.quit;
 excel:= Unassigned;
end;

end;

дело в том что на компьютерах на учебе норм все работает

скорее всего проблема в экселе, хотя не уверен, при запуске выдавала ошибку на компонент visual studio 2010 вроде tfsofficeadd-in.dll