|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
04.04.2012, 16:05 | #31 |
Пользователь
Регистрация: 05.02.2012
Сообщений: 55
|
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, чтоб проверить как первая функция работать будет...вот!!! |
04.04.2012, 16:06 | #32 | |
Пользователь
Регистрация: 05.02.2012
Сообщений: 55
|
Цитата:
|
|
04.04.2012, 16:12 | #33 |
Дружелюбный
Форумчанин
Регистрация: 23.02.2012
Сообщений: 692
|
Пройдитесь по коду f7 и скажите номер строки в которой ошибка.
-==ЛЮБОЕ ЗНАНИЕ ДОСТИГАЕТСЯ ТОЛЬКО СОБСТВЕННЫМИ УСИЛИЯМИ!!!==-
|
04.04.2012, 16:16 | #34 |
Пользователь
Регистрация: 05.02.2012
Сообщений: 55
|
ща попробую.
|
04.04.2012, 16:19 | #35 |
Дружелюбный
Форумчанин
Регистрация: 23.02.2012
Сообщений: 692
|
Обьявите массив в разделе var и задайте размер 1000 на 1000 например. Без всяких дополнительных функций.
-==ЛЮБОЕ ЗНАНИЕ ДОСТИГАЕТСЯ ТОЛЬКО СОБСТВЕННЫМИ УСИЛИЯМИ!!!==-
|
04.04.2012, 16:20 | #36 | |
Пользователь
Регистрация: 05.02.2012
Сообщений: 55
|
16:20
вы меня конечно извините..но я не очень умею пользоваться f7, где там номер строки найти?? 16:20 Цитата:
16:23 о так сработал...это значит у меня ошибка с выодом SetLength?! _________________ ФОРУМ НЕ ЧАТ! Не используйте форум как чат - не пишите несколько коротких сообщений подряд! Есть что добавить - нажимайте кнопку "Правка/Редактировать" на своём крайнем сообщении и изменяйте, добавляйте.... Прошу учесть на будущее... Модератор. Последний раз редактировалось Serge_Bliznykov; 04.04.2012 в 16:39. |
|
04.04.2012, 16:23 | #37 |
Дружелюбный
Форумчанин
Регистрация: 23.02.2012
Сообщений: 692
|
Проходите f7 и смотрите какая строка выделена синим , когда доберетесь до ошибки, какая последняя строка? Скопируйте и вставте.
Ага, в нем ошибка. Забейте на эту функцию, обьявите массив по максимуму , до предела. Хотя на практике, если человек вводить будет, вам хватит и 100 на 100. _________________ Не используйте форум как чат - не пишите несколько коротких сообщений подряд! Есть что добавить - нажимайте кнопку "Правка/Редактировать" на своём крайнем сообщении и изменяйте, добавляйте.... Прошу учесть на будущее... Модератор. -==ЛЮБОЕ ЗНАНИЕ ДОСТИГАЕТСЯ ТОЛЬКО СОБСТВЕННЫМИ УСИЛИЯМИ!!!==-
Последний раз редактировалось Serge_Bliznykov; 04.04.2012 в 16:40. |
04.04.2012, 16:26 | #38 |
Пользователь
Регистрация: 05.02.2012
Сообщений: 55
|
Module Load: msctfime.ime. No Debug Info. Base Address: $75310000. Process Project2.exe (4432)
вот эта строка синяя после запуска да ладно но все таки попробую разобраться в чем прокол!! спасибо огромное! Последний раз редактировалось Serge_Bliznykov; 04.04.2012 в 16:40. |
04.04.2012, 16:29 | #39 |
Дружелюбный
Форумчанин
Регистрация: 23.02.2012
Сообщений: 692
|
Погадите, мы решили вашу проблему? Эта строка самой ошибки, а не строка вашего кода. Походу модуля не хватает.
-==ЛЮБОЕ ЗНАНИЕ ДОСТИГАЕТСЯ ТОЛЬКО СОБСТВЕННЫМИ УСИЛИЯМИ!!!==-
|
04.04.2012, 16:31 | #40 |
Пользователь
Регистрация: 05.02.2012
Сообщений: 55
|
дада проблема решилась но так!!я понял в чем ошибка попробую разобраться..но саму программу буду дописывать пока с массивом 1000 на 1000..а потом буду думать!
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Сортировка в двумерном массиве | scoprion | Помощь студентам | 1 | 12.01.2011 20:30 |
Повторы в двумерном массиве | rusasha | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 05.05.2010 08:26 |
В двумерном массиве вставить перед всеми столбцами, в которых нет отрицательных элементов, второй столбец | razor052 | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 16.04.2010 14:33 |
Игра на двумерном массиве | Serg-Grin | Gamedev - cоздание игр: Unity, OpenGL, DirectX | 1 | 19.02.2010 20:51 |
помогите удалить строку и столбец в Delphi | ЛесенОК | Помощь студентам | 4 | 01.02.2009 19:30 |