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

[Поликарп]

если 1 ,тогда я сохраняю это значение в файл

как ни странно но для одиночных строк работает

[Serge_Bliznykov]

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

чему будет равно i+1 если i будет равно rowCount-1 ?

evg_m, формально Вы правы, коллега, это ошибка.
Была бы в любом другом случае, но не в данном!
Дело в том, что TStringGrid делали люди явно альтернативно одарённые, руководствуясь альтернативной логикой (см. гугл - политкорректность)
в этом стриггрид всё сделано через @@... через альтернативную логику. начиная с индексации (сначала столбцы, потом - строки), и заканчивая доступом к любой ячейке грида, вне зависимости от значений RowCount, ColCount
(кстати, это наглядно проявляется, если заполнить грид, уменьшить значения, а потом, по кнопке - опять увеличить до прежних. Грид будет ЗАПОЛНЕН!)

И, попробуйте такой код:

  StringGrid1.RowCount := 3;
  StringGrid1.ColCount := 5;
  StringGrid1.Cells[200, 200] := 'Где Логика, мать вашу?!!!!';
  StringGrid1.Cells[1,1] := StringGrid1.Cells[200, 200];

[Поликарп]

программа написана еще до меня, еще в 2008) вот сейчас понадобилось ее апгрейдить, не мог же я сказать: извините я не могу, пришлось взяться.

[Serge_Bliznykov]

Поликарп, Вы насчёт TStringGrid на свой счёт не принимайте, это борландовцы прокосячили...

Нормальная процедура, насколько я могу судить по ней (визуально, без проверки), если её не вызывать с заведомо некорректными данными (например, когда строчек в гриде нет), тогда она должна работать.

[Поликарп]

да у нас тут ее(прогу эту) уже весь отдел послал далеко и надолго) в принципе да, работать будет,а если вдруг нажал на кнопку, можно выводить сообщение: мол удалять нечего.

[evg_m]

evg_m, формально Вы правы, коллега, это ошибка.
Была бы в любом другом случае, но не в данном!

Да конечно хорошо что все ошибки исправляются (и я об этом знаю для StringGrid). Но зачем привыкать к плохому, потом в классическом массиве (да еще без RangeChecking) получит АV или неверные результаты и будет ломать голову. вот свежий пример

[Поликарп]

for i:=sgreg.RowCount-1 downto 1 do 
   if trim( sgreg.Cells[ 13, i] ) = 'иностранная' then 
        DeleteRow(sgreg,i);

попробовал ваш вариант- удаляет) а как теперь сделать чтоб он и инвестиционные удалял?

for i:=sgreg.RowCount-1 downto 1 do 
   if ((trim( sgreg.Cells[ 13, i] ) = 'иностранная')) and (( trim( sgreg.Cells[ 13, i] ) = 'инвестиционная' ))then

        DeleteRow(sgreg,i);

[Serge_Bliznykov]

if ((trim( sgreg.Cells[ 13, i] ) = 'иностранная')) OR (( trim( sgreg.Cells[ 13, i] ) = 'инвестиционная' ))then

[Поликарп]

класс! теперь удаляет так как надо. спасибо большое за помощь, а то так и сидел бы. пойду остальные по аналогии сделаю

[Поликарп]

а вот такой вопрос: до апгрейда монеты сохранялись в один общий файл

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

а так как сейчас у нас монеты отсортировались их надо сохранять отдельно в зависимости от нажатого радиобаттана, тогда код будет таким?

if radiobutton10.Checked=true then
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
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');
end;

?