удалить строку и столбец в двумерном массиве

[mozg2011]

procedure D_1 (n,m,i,j:integer);
var b,c:integer;
begin
for b := i to n-1 do
for c := 0 to m-1 do
Q[b,c]:=Q[b+1,c];

for b := 0 to n-1 do
for c := j to m-1 do
Q[b,c]:=Q[b,c+1];
end;

procedure TForm3.Det;
var n,m:integer;
begin
i:=SG1.RowCount;
j:=SG1.ColCount;
SetLength(Q, i,j);
for i:=0 to SG1.RowCount-1 do
for j:=0 to SG1.ColCount-1 do
Q[i,j]:=StrToInt(SG1.Cells[j,i]);

n:=SG1.RowCount;
m:=SG1.ColCount;
D_1(n,m,1,1);
for i:=0 to SG1.RowCount-1 do
for j:=0 to SG1.ColCount-1 do
SG3.Cells[i,j]:=IntToStr(Q[j,i]);

end;


первая процедура это функция удаления строк(столбцов) а вторая это собственно сама процедура которая будет все дальше делать!! но она не до конца по этому я сделал массив и потом обратно вывел его в StringGird, чтоб проверить как первая функция работать будет...вот!!!

[mozg2011]

а я думаю, что идёт обращение к массиву, без задания ему размера (выделения памяти) через SetLength()!

нет SetLength вроде есть

[vovken1997]

Пройдитесь по коду f7 и скажите номер строки в которой ошибка.

[mozg2011]

ща попробую.

[vovken1997]

Обьявите массив в разделе var и задайте размер 1000 на 1000 например. Без всяких дополнительных функций.

[mozg2011]

16:20
вы меня конечно извините..но я не очень умею пользоваться f7, где там номер строки найти??

16:20

Обьявите массив в разделе var и задайте размер 1000 на 1000 например. Без всяких дополнительных функций.

да ща попробую

16:23
о так сработал...это значит у меня ошибка с выодом SetLength?!



_________________
ФОРУМ НЕ ЧАТ!
Не используйте форум как чат - не пишите несколько коротких сообщений подряд!
Есть что добавить - нажимайте кнопку "Правка/Редактировать" на своём крайнем сообщении
и изменяйте, добавляйте....

Прошу учесть на будущее...

Модератор.

[vovken1997]

Проходите f7 и смотрите какая строка выделена синим , когда доберетесь до ошибки, какая последняя строка? Скопируйте и вставте.

Ага, в нем ошибка. Забейте на эту функцию, обьявите массив по максимуму , до предела. Хотя на практике, если человек вводить будет, вам хватит и 100 на 100.


_________________
Не используйте форум как чат - не пишите несколько коротких сообщений подряд!
Есть что добавить - нажимайте кнопку "Правка/Редактировать" на своём крайнем сообщении
и изменяйте, добавляйте....

Прошу учесть на будущее...

Модератор.

[mozg2011]

Module Load: msctfime.ime. No Debug Info. Base Address: $75310000. Process Project2.exe (4432)

вот эта строка синяя после запуска

да ладно но все таки попробую разобраться в чем прокол!! спасибо огромное!

[vovken1997]

Погадите, мы решили вашу проблему? Эта строка самой ошибки, а не строка вашего кода. Походу модуля не хватает.

[mozg2011]

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