Форум: "Начинающим";
Текущий архив: 2011.12.18;
Скачать: [xml.tar.bz2];
Внизматрица Найти похожие ветки
← →
Maxpch21 © (2011-09-08 13:14) [17]А нельзя ли доработать то что уже сделано?
"Вот к примеру я нажимаю на RUN, заполняю StrengGreed таблицу цифрами(ну то бишь элементами), ставлю в edit1 и2 номера строки и столбца, нажимаю на копку и ничего не происходит, а надо чтобы после нажатия появлялась матрица с вырезаной строчой и столбцом кои номера я ввел в edit1 и 2.
То есть как изменить
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.
Чтобы после нажатия на кнопку Buuton1 выходила матрица с вырезанной строкой edit1 и вырезанным столбцом edit2
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2011.12.18;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.004 c