|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
25.10.2014, 13:04 | #1 |
Пользователь
Регистрация: 05.10.2014
Сообщений: 24
|
Статические и динамические двумерные массивы
Всем привет.
Помогите перевести статические двумерные массивы в динамические двумерные в представленном коде. Когда я меняю их самостоятельно перестают работать либо функция открытия изображения, либо функция Sobel. Заранее, спасибо! Код:
|
25.10.2014, 13:56 | #2 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
А как менял покажешь?
I'm learning to live...
|
25.10.2014, 14:10 | #3 |
Пользователь
Регистрация: 05.10.2014
Сообщений: 24
|
Например, массив a.
var Form1: TForm1; a:array of array of byte; ... procedure TForm1.LoadInArray; var Ln:PARGB; x,y:integer; begin if image1.Picture.Bitmap.PixelFormat<> pf24bit then image1.Picture.Bitmap.PixelFormat:= pf24bit; BMPHeight:=image1.Picture.height; BMPWidth:=image1.Picture.width; SetLength(a, BMPWidth, BMPHeight) for y := 0 to BMPHeight-1 do begin Ln := form1.image1.Picture.Bitmap.scanlin e[y]; for x := 0 to BMPWidth-1 do begin a[x,y]:=(Ln[x].r+Ln[x].g+Ln[x].b) div 3; a:=nil; end; end; Ругается на строчку с формулой gx[i,j]:=(a[i-1,j+1]+2*a[i,j+1]+a[i+1,j+1])-(a[i-1,j-1]+2*a[i,j-1]+a[i+1,j-1]); |
25.10.2014, 15:07 | #4 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Мдя... Ладно уточню:
1) И где эта строчка? 2) И где текст ошибки?
I'm learning to live...
|
25.10.2014, 15:35 | #5 |
Пользователь
Регистрация: 05.10.2014
Сообщений: 24
|
Строчка в другой процедуре. В Sobel.
Ошибка после попытки применить фильтр Sobel. Запускается программа. Открываю BMP (к слову, открывается секунд 15), пытаюсь применить данный фильтр, вылетает ошибка. Выделяет строчку с формулой. Для полноты картины вкладываю "исправленный" исходник. |
25.10.2014, 18:15 | #6 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Делфи у меня нет при себе проверить не могу проект.
Лучше покажи текст ошибки.
I'm learning to live...
|
25.10.2014, 19:35 | #7 |
Пользователь
Регистрация: 05.10.2014
Сообщений: 24
|
В общем, по порядку. Приложение запускается. Когда открываю изображение и пытаюсь применить фильтр, приложение крашится.
Код:
|
25.10.2014, 19:47 | #8 | |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Цитата:
Зачем nil ставишь? Код:
I'm learning to live...
|
|
25.10.2014, 20:36 | #9 | |
Пользователь
Регистрация: 05.10.2014
Сообщений: 24
|
Ну я прочел, что nil нужно для освобождения памяти. В принципе, не обязательно, наверное.
a[x,y]:=(Ln[x].r+Ln[x].g+Ln[x].b) div 3 - без этой формулы открытое изображение просто закрашивается в черный цвет. Цитата:
|
|
25.10.2014, 20:51 | #10 | ||
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Цитата:
nil ниразу не освобождает память. SetLength(...,0) - вот что нужно вызывать для освобождения памяти. nil используется для освобождения памяти в СОМ модели, при работе с интерфейсами. Не знаю где ты такую чепуху прочел, но это скорее бред или ты не так понял. Цитата:
Попробуй поставить Код:
I'm learning to live...
|
||
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Статические массивы + Си | narco3 | Помощь студентам | 2 | 13.10.2012 00:59 |
[Pascal] Динамические и статические структуры | Bolverk | Фриланс | 2 | 27.12.2011 19:00 |
[Pascal] Динамические и статические структуры | Bolverk | Помощь студентам | 4 | 27.12.2011 14:59 |
Динамические двумерные массивы | Razdolbam | Помощь студентам | 0 | 14.03.2011 15:37 |
Статические массивы | aus | Общие вопросы C/C++ | 1 | 17.10.2010 15:32 |