StringGrid и radiobutton, удаление строк

[Serge_Bliznykov]

if radiobutton10.Checked=true then BEGIN
bo.workbooks[1].saveas('C:\операции с памятными монетами\документы\регистр1_'+datetostr(datetimepicker5.date)+'.xls');
bo.Application.quit;
bo.visible:=true;
bo.workbooks.open('C:\операции с памятными монетами\документы\регистр_'+datetostr(datetimepicker5.date)+'.xls');
end;

if radiobutton12.Checked=true then BEGIN
bo.workbooks[1].saveas('C:\операции с памятными монетами\документы\регистр1_'+datetostr(datetimepicker5.date)+'.xls');
bo.Application.quit;
bo.visible:=true;
bo.workbooks.open('C:\операции с памятными монетами\документы\регистр2_'+datetostr(datetimepicker5.date)+'.xls');

Во-первых, Вы забыли написать BEGIN! Как оно вообще у Вас компилируется - end'ы без begin ?!! o_O!

Во-вторых, Не смущает Вас, что пишете в файл с одним именем, а отрыть пытаетесь файл с другим именем?!

короче, это неверно!

[Поликарп]

я немного не так выразился : тогда надо и и здесь код менять

bo:=createOleObject('Excel.Application');
 bo.visible:=false;
if ----
 bo.workbooks.open('C:\операции с памятными монетами\формы\Р_ПМ 2012 1кв.xls');
  bo.workbooks.open('C:\операции с памятными монетами\формы\ПМ(иностранные)2012 1 кв.xls');
 listbo:=bo.workbooks[1].sheets[1];
if---
bo.workbooks.open('C:\операции с памятными монетами\формы\Р_ПМ 2012 1кв.xls');
  bo.workbooks.open('C:\операции с памятными монетами\формы\ПМ(иностранные)2012 1 кв.xls');
 listbo:=bo.workbooks[1].sheets[1];

[Serge_Bliznykov]

не совсем понимаю Вас...
ну надо менять - так меняйте!
В чём проблема? Чего Вы хотите добиться и что именно у Вас не получается?

[Поликарп]

мне теперь надо сохранять монеты согласно их типу,чтобы иностранные отдельно, а памятные и инвестиционные вместе

[Поликарп]

было так для общего списка:

procedure TForm2.BitBtn15Click(Sender: TObject);
var
a:array [1..500,1..500]of string;
begin
bo:=createOleObject('Excel.Application');
 bo.visible:=false;
 bo.workbooks.open('C:\операции с памятными монетами\формы\blank_регистр.xls');
 listbo:=bo.workbooks[1].sheets[1];

 if radiobutton7.Checked=true then
 listbo.Cells[8,1]:='за отчетный (налоговый) период '+combobox14.Text+' '+edit31.Text;
 if radiobutton8.Checked=true then
 listbo.Cells[8,1]:='за отчетный (налоговый) период '+combobox13.Text+' '+edit31.Text;

 for i:=1 to sgreg.RowCount-1 do
  begin
   for j:=0 to 11 do
    begin
     a[i+12,j+1]:=sgreg.Cells[j,i];
    end;
  end;

 for n:=13 to 13+sgreg.RowCount-2 do
  begin
      listbo.Rows[13].Insert;
  end;
 for n:=13 to 13+sgreg.RowCount-2 do
  begin
 for k:=1 to 12 do
   listbo.cells[n,k]:=a[n,k];
  end;

 listbo.cells[n,4]:=label127.caption;
 listbo.cells[n,7]:=label128.caption;
 listbo.cells[n,8]:=label129.caption;
 listbo.cells[n,9]:=label130.caption;
 listbo.cells[n,10]:=label131.caption;
 listbo.cells[n,11]:=label132.caption;
 listbo.cells[n,12]:=label133.caption;



bo.workbooks[1].saveas('C:\операции с памятными монетами\документы\регистр_'+datetostr(datetimepicker5.date)+'.xls');
bo.Application.quit;
bo.visible:=true;
bo.workbooks.open('C:\операции с памятными монетами\документы\регистр_'+datetostr(datetimepicker5.date)+'.xls');
//bo.worksheets.PrintPreview;
end;

[Поликарп]

а так как монеты разделились надо сохранять их отдельно, так как отчеты по ним разные, приходится под них делать

[Поликарп]

т.е в зависимости от выбранного условия(иностранная или нет) открывать соответствующий отчет и сохранять,

[Поликарп]

с сохранением я разобрался. другой вопрос появился

[Поликарп]

а как после удаления ненужных строк , подсчитать оставшиеся количество , которое выводится в edit?