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

[Поликарп]

Добрый день! прошу помощи : у меня есть StringGrid в котором содержатся данные, и есть 3 radiobutton. проблема в следующем, мне надо с помощью radiobutton удалять из таблицы строки(в данном случае по виду монеты : памятная ,инвестиционная , иностранная), т.е оставлять те монеты,которые имеют то или иное значение.

[Serge_Bliznykov]

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


p.s. Хотите, могу набросать пример кода и выложить вам сюда в виде картинки?...

[Поликарп]

было бы замечательно,

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

procedure TForm2.Button5Click(Sender: TObject);
var
i: Integer;
begin
if radiobutton10.Checked=true then
begin
for i:=0 to sgreg.RowCount-1 do
for j:=0 to sgreg.RowCount-1 do
while i<=(sgreg.RowCount-1) do begin
if sgreg.Rows[i]='иностранная' then begin
DeleteARow(sgreg,i);
end
end;
end;
end;

может весь код проекта скинуть?

[evg_m]

проходите в цикле от последней строчки к первой

for i:=..RowCount-1 downto 0 do 
  if ... then 
   DeleteRow(...,i);
end;

='иностранная'

это значение определенной ячейки (Cells) в определенной колонке (?) и нужной строке (i)

Cells[?,i]

[Поликарп]

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

for i:=..RowCount-1 downto 0 do 
  if ... then 
   DeleteRow(...,i);
end;

это значение определенной ячейки (Cells) в определенной колонке (?) и нужной строке (i)

Cells[?,i]

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

так получается?

[Serge_Bliznykov]

нет. не так!

примерно так:

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

13 - это номер столбца с типом монеты, если я не ошибся в подсчёте столбцов, конечно...


только позвольте поинтересоваться, а процедура DeleteRow у Вас есть?

[Поликарп]

да ,13-там вид монеты записан, процедура DeleteRow есть :

procedure GridDeleteRow(RowNumber: Integer; sgreg: TstringGrid);
var
i: Integer;
begin
sgreg.Row := RowNumber;
if (sgreg.Row = sgreg.RowCount - 1) then
{ On the last row}
sgreg.RowCount := sgreg.RowCount - 1
else
begin
{ Not the last row}
for i := RowNumber to sgreg.RowCount - 1 do
sgreg.Rows[i] := sgreg.Rows[i + 1];
sgreg.RowCount := sgreg.RowCount - 1;
end;
end;

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!
Модератор.

[evg_m]

предупреждая следующий вопрос на форуме
позвольте полюбопытствовать а какую строчку вы будете копировать последней.
не в какую (а из какой)

for i := RowNumber to sgreg.RowCount - 1 do
sgreg.Rows[i] := sgreg.Rows[i + 1];

чему будет равно i+1 если i будет равно rowCount-1 ?
и еще
чему будет равно новое значение RowCount если начальное =1 ? а если 0 ?

[Поликарп]

удаление по 1 строке,

procedure TForm2.Button5Click(Sender: TObject);
var
i: Integer;
begin
GridDeleteRow(1, sgreg);
end;

[Serge_Bliznykov]

процедура DeleteRow есть :

procedure GridDeleteRow(RowNumber: Integer; sgreg: TstringGrid);

О! Вы уверены, что у Вас есть процедура DeleteRow ?!!
в приведённом Вам код процедура с ДРУГИМ наименованием (и, кстати, параметры не в том порядке стоят!)

впрочем, думаю, что Вы уже догадались, как вместо DeleteRow(sgreg,i);
написать:

GridDeleteRow(i, sgreg )