excel and Delphi

[elionor777]

Доброго дня форумчане!
Делаю не большую программу которая работает с Excel. Excel подключил с помощью библиотеки ComObj.
В программе есть CheckBox(ы) после нажатия на кнопочку если чекбокс активен, то определенная информация заноситься в определенную ячейку в екселе, так вот чек боксов 66 штук с помощью какого оператора можно это реализовать? цикл? в данный момент сделал с помощью условного оператора (if then else) и получаеться я перебераю все возможные варианты активации чекбоксов (т.е. если чекбокс1 активен то в ячейку D1 заноситься инфа , если активен чекбокс2 а чекбокс1 не активен то инфа за которую отвечает чекбокс2 заноситься в ячейку D1 , если активны и чекбокс1 и чекбокс2 то в D1 заноситься инфа чекбокса1 , а инфа чекбокса2 заноситься в ячейку D2) и в таком духе все 66 чек боксов, прошу помощи! направьте меня на путь истинный так сказать)

[Stilet]

с помощью какого оператора можно это реализовать?

CheckListBox попробовать использовать не желаешь?

[elionor777]

Сообщение от Stilet

CheckListBox попробовать использовать не желаешь?

Спасибо добрый человек, с ним гораздо удобнее получается, но опять та же проблема не имею понятия как в первой ячейки екселя писалось то что принадлежит второй строке если первая не активна в чекБоксЛисте ну и так далее все 66 строк...

[astecenko]

заводите счетчик(переменную) для номера активной ячейки(столбца?) экселя, в цикле по элементам чеклистбокса перебираете все элементы, если активен то делаете то что Вам надо и увеличиваете счетчик активной ячейки, т.е. например как-то так

var
  j:Integer //счетчик активного столбца
  i,n:Integer;
begin
  j:=1;
  n:=pred(CheckListBox1.Count);
  for i:=0 to n do
    begin
      if CheckListBox1.Checked[i] then
        begin
          //что-то тут делаете, вывод в Excel
          Inc(j)
        end;
    end;
end;

[elionor777]

procedure TForm1.Button1Click(Sender: TObject);
begin
 Excel:=CreateOleObject('Excel.Application');
 Excel.Application.WorkBooks.Add('C:\Users\Elionor\Desktop\osnova.xls');
 d:=FormatDateTime('dd.mm.yy hh.nn.ss',Now);
 s:=StrToFloat(SpinEdit1.Text);
 s1:=StrToFloat(SpinEdit2.Text);
 s2:=StrToFloat(SpinEdit3.Text);
 s3:=StrToFloat(SpinEdit4.Text);
 s4:=StrToFloat(SpinEdit5.Text);

 j:=1;
 n:=pred(CheckListBox1.Count);
 for i:=0 to 4 do
  begin
   if CheckListBox1.Checked[i] then
    begin
 Excel.Range['D3']:=s;
 Excel.Range['D4']:=s1;
 Excel.Range['D5']:=s2;
 Excel.Range['D6']:=s3;
 Excel.Range['D7']:=s4;
 Inc(j);
    end;
  end;

Или я что то не так делаю или не получается.... Не перебирает варианты, а просто данные вписывает в ячейки стобца D (и вписывать надо начинаю с ячейки D3)

[elionor777]

ребят, ну подскажите плиз

[Stilet]

procedure TForm1.Button1Click(Sender: TObject);
var se:TSpinEdit;
begin
 Excel:=CreateOleObject('Excel.Application');
 Excel.Application.WorkBooks.Add('C:\Users\Elionor\Desktop\osnova.xls');
 d:=FormatDateTime('dd.mm.yy hh.nn.ss',Now);
 s:=StrToFloat(SpinEdit1.Text);
 s1:=StrToFloat(SpinEdit2.Text);
 s2:=StrToFloat(SpinEdit3.Text);
 s3:=StrToFloat(SpinEdit4.Text);
 s4:=StrToFloat(SpinEdit5.Text);

 j:=1;
 for i:=0 to CheckListBox1.Count do
  begin
   if CheckListBox1.Checked[i] then
    begin
     se:=TSpinEdit(FindComponent('SpinEdit'+IntToStr(i)));
     if se<>nil then
        Excel.Range['D'+IntToStr(j)]:=se.text;
     Inc(j);
    end;
  end;

Это если я правильно понял сумбур задания.

[elionor777]

Сообщение от Stilet

procedure TForm1.Button1Click(Sender: TObject);
var se:TSpinEdit;
begin
 Excel:=CreateOleObject('Excel.Application');
 Excel.Application.WorkBooks.Add('C:\Users\Elionor\Desktop\osnova.xls');
 d:=FormatDateTime('dd.mm.yy hh.nn.ss',Now);
 s:=StrToFloat(SpinEdit1.Text);
 s1:=StrToFloat(SpinEdit2.Text);
 s2:=StrToFloat(SpinEdit3.Text);
 s3:=StrToFloat(SpinEdit4.Text);
 s4:=StrToFloat(SpinEdit5.Text);

 j:=1;
 for i:=0 to CheckListBox1.Count do
  begin
   if CheckListBox1.Checked[i] then
    begin
     se:=TSpinEdit(FindComponent('SpinEdit'+IntToStr(i)));
     if se<>nil then
        Excel.Range['D'+IntToStr(j)]:=se.text;
     Inc(j);
    end;
  end;

Это если я правильно понял сумбур задания.

ошибка "List index out of bounds(5)" с помощью деббагер посмотрел: цикл проводит столько раз сколько строк в чеклистбоксе и выдает ошибку

[Аватар]

for i:=0 to CheckListBox1.Count-1 do

[elionor777]

Сообщение от Аватар

for i:=0 to CheckListBox1.Count-1 do

Excel.Range['D'+IntToStr(j)]:=se.text;

он начинает сохранять в ячейку D2 дальше D3.... надо что бы начинал с D3

Excel.Range['D3'+IntToStr(j)]:=se.text;

делаю так начинает заполнять с D32 почему то...

Excel.Cells['4,3'+IntToStr(j)]:=se.text;

так вообще не заполняет

и последний активный чекбокс игнорируеться ( т.е в ексель не переносится )