← →Maxpch21 ©
(2011-09-08 13:09)
[16]
> На форму нужно было шлепать не "StringGreed", а ListView,
> у которого есть готовые методы для "обрезания".
>
> Удаление строки - ListView.Items.Delete(индекс_строки)
> Удаление столбца - ListView.Columns.Delete(индекс_столбца)
То есть здесь: procedure TForm1.btn1Click(Sender: TObject);
var
x,y,i:byte;
str,col:array[1..5] of integer;
begin
x:=strtoint(edt1.text);
y:=strtoint(edt2.text);
for i:=1 to 5 do begin
str[i]:=strtoint(stringgrid2.cells[x,i-1]);
col[i]:=strtoint(stringgrid2.cells[i-1,y]);
end;
end;
end.
Вместо str[i]:=strtoint(stringgrid2.cells[x,i-1]);
(stringgrid2.cells[i-1,y]);
поставить str[i]:=strtoint(ListView.Items.Delete(индекс_строки))
col[i]:=strtoint(ListView.Columns.Delete(индекс_столбца))
Или как?
матрица Найти похожие ветки
← →