Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.11.14;
Скачать: [xml.tar.bz2];

Вниз

Консультация по фрагменту кода   Найти похожие ветки 

 
ssmaxx   (2004-11-02 11:07) [0]

Добрый день. Подскажите пожалуйста, в чем проблема:
Есть некий модуль, в нем следующие описания записей:

interface

Type
 ...
 TPoint=Record
   x,y,z:Real;
 end;
 TDXFPolyLine=Record
   Radius,Points:Array of TPoint;
   StartWidth,EndWidth:Array of real;
   Thickness:Byte;
   Extrusion:TPoint;
   Color:Integer;
   Layer:String;
   LineTypeName:String;
   LineTypeScale:Integer;
   Closed:Boolean;
   GlobalWidth:Real;
 end;
 ...
implementation
 ...

Из программы пытаюсь присвоить значение элементам массивов:

...
Var
DXFPoly:TDXFPolyLine;
i,k,KolVertex,RndCh:Integer;
begin
 ...
 For k:=0 to KolVertex do begin
  if k=0 then begin
   DXFPoly.Points[k].x:=Random(100);
   DXFPoly.Points[k].y:=Random(100);
   DXFPoly.Points[k].z:=0;
  end else begin
   DXFPoly.Points[k].x:=DXFPoly.Points[k-1].x+Random(1000)-500;
   DXFPoly.Points[k].y:=DXFPoly.Points[k-1].y+Random(1000)-500;
   DXFPoly.Points[k].z:=0;
  end;
 end;
 ...
 
 При компиляции все нормально, но при первом же обращении к массиву DXFPoly.Points выдается ошибка: ... Access violation at address 00442EE4 in module "Test.exe". Write of address 00000000 ....

Подскажите пожалуйста, что не так ?


 
Digitman ©   (2004-11-02 11:12) [1]

ты не устанавливаешь (или неверно устанавливаешь) длину дин.массива Points перед обращением к k-му его элементу

см. SetLength()


 
Symb   (2004-11-02 11:12) [2]

Массив сначала пустой. Если Пушкин ему размер не задаст, то придется тебе. Иначе при первом же обращении по несуществующему индексу 0 он выдаст тебе Access Violation.
В общем, SetLength(DXFPoly.Points, размер).


 
ssmaxx   (2004-11-02 11:37) [3]

Спасибо большое!
У меня вопрос в догонку: если я задал размер массива, то его после использования не надо каким-либо образом очистить?


 
DiamondShark ©   (2004-11-02 11:43) [4]


> У меня вопрос в догонку: если я задал размер массива, то
> его после использования не надо каким-либо образом очистить?

Не надо. Он очистится как только уйдёт за область видимости.
Если хочется очистить принудительно, то либо SetLength(.., 0), либо присвоить nil.


 
ssmaxx   (2004-11-02 12:05) [5]

Еще раз СПАСИБО !!!



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

Форум: "Основная";
Текущий архив: 2004.11.14;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.035 c
1-1098863269
digger
2004-10-27 11:47
2004.11.14
Hint


14-1098465723
Кириешки
2004-10-22 21:22
2004.11.14
From SPYWARE to WARNING.


14-1098882807
Yuri Btr
2004-10-27 17:13
2004.11.14
Intel Signal Processing Library


4-1096825772
avs
2004-10-03 21:49
2004.11.14
В старых мониторах


14-1098697418
iboard
2004-10-25 13:43
2004.11.14
Вот что можно написать на KOL :)





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский