Доброго времени суток!
у меня возникла проблема
вот код
Код:
procedure TForm1.Button2Click(Sender: TObject);
var
XL, XArr: Variant;
i:Integer;
j:Integer;
begin
XArr:=VarArrayCreate([1,ADOTable1.FieldCount],varVariant);
XL:=CreateOLEObject('Excel.Application'); // Nicaaiea OLE iauaeoa
XL.WorkBooks.add;
XL.visible:=False;
j := 1;
//выгрузка 1го выделеного
if RadioButton1.Checked then
begin
For i:=0 to ADOTable1.FieldCount-1 do
XArr[i+1] := ADOTable1.Fields.Value;
XL.Range['A'+IntToStr(j),
CHR(64+ADOTable1.FieldCount)+IntToStr(j)].Value := XArr;
end else
//Выгрузка всей БД
Begin
while not ADOTable1.Eof do
begin
i:=1;
while i<=ADOTable1.FieldCount do
begin
ADOTable1.First;
XArr := ADOTable1.Fields[i-1].Value;
i:= i+1;
XL.Selection.Font.Name:='Arial cur';
XL.Selection.Font.Size:=10;
XL.selection.Columns.AutoFit;
XL.Range['A1','A1'].select;
end;
end;
end;
XL.visible:=True;
end;
end.
Значит когда RadioButton1 включин выгружается только выделеная строка таблици Это работает нормально все выгружается
а когда выделение RadioButton1 снимаю то виснет и чекрез некоторое время дает ошибку
ЛЮди пожалуйсто подскажите где код криво написано!!!
БУду оченьблагодарин!