Вниз
Скачать: CL | DM;

Дин массивы   Найти похожие ветки 

← →
RzCoDer ©   (2005-10-15 13:44) [0]

Такая вот проблема, есть код:


if length(gui.Windows) >= 0 then begin
for f := 0 to length(gui.Windows) do begin
 if length(gui.Windows[f].buttons) >= 0 then begin
 for i := 0 to length(gui.Windows[f].Buttons) do begin


Где GUI пакет рекорд:

TRGUI = packed record                    
Windows      : array of TRWindow;
Visible     : boolean;            
end;

TRWindow соответсвенно тоже. Ошибка AV возникает при попытке обращения к gui.Windows[f], хотя всё вроде задано, в чём может быть проблема?

P.S. TRWindow также имеет дин массивы, но они тож заданы.


← →
TUser ©   (2005-10-15 13:49) [1]


> if length(gui.Windows) >= 0 then begin
> for f := 0 to length(gui.Windows) do begin
>  if length(gui.Windows[f].buttons) >= 0 then begin
>  for i := 0 to length(gui.Windows[f].Buttons) do begin

Замени на
for f := 0 to length(gui.Windows) -1 do begin
for i := 0 to length(gui.Windows[f].Buttons) - 1 do begin


Дело в том, что массив длины length(A) включает в себя элементы с индексами low(A) = 0, 1, ..., high(A) = length(A)-1.


← →
RzCoDer ©   (2005-10-15 14:05) [2]

TUser, хе, единица была, забыл её тут впечатать,
Ну в принципе разобрался, на самом деле намудил с заданием размера массивов :( а парился ведь 3 час...



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.028 c
1-1129637791
Федор
2005-10-18 16:16
2005.11.06
TWebBrowser


1-1129137427
Rianon
2005-10-12 21:17
2005.11.06
Проблема с Dll и формами


4-1125318964
Uran
2005-08-29 16:36
2005.11.06
Разрешения в реестре


1-1129182020
pmi1
2005-10-13 09:40
2005.11.06
Изменям Edit, при этом картинка не портится


14-1129701752
Rentgen
2005-10-19 10:02
2005.11.06
удаленно(COM1-RS232) запустить программу




   Наверх