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

Array   Найти похожие ветки 

← →
VIB   (2003-03-10 11:30) [0]

Создаю динамический масив.
Добавляю данные.
Когда закрываю форму выдает ошибку.

Access violation adress ...

Подскажите что не так

---

← →
Anatoly Podgoretsky ©   (2003-03-10 11:35) [1]

Ошибка в 17 строке

---

← →
VIB   (2003-03-10 11:40) [2]

Не понял это шутка.

---

← →
Anatoly Podgoretsky ©   (2003-03-10 11:41) [3]

Нет серьезно

---

← →
VIB   (2003-03-10 11:50) [4]

Если серьезно то можна поподробнее.

---

← →
Anatoly Podgoretsky ©   (2003-03-10 11:50) [5]

Ну так у тебя листинг перед глазами

---

← →
VIB   (2003-03-10 11:54) [6]

Листинг юнита или проэкта

---

← →
Anatoly Podgoretsky ©   (2003-03-10 11:56) [7]

Всей твоей программы и учти у нас его нет

---

← →
VIB   (2003-03-10 12:00) [8]

Вот листинг
unit ImportClasses;

interface

Type DIImpClass=record
VarType:String;
VarName:String;
VarValue:TObject;
end;

Type DIImpClasses = Array of DIImpClass;


DIImportClasses = class
private
FCount:Integer;
FItemIndex:Integer;
FList: DIImpClasses;
FItems:DIImpClass;
Function GetItem(Index:integer):DIImpClass;

public

Procedure Add(VType:String;VName:String;VValue:TObject);
Procedure Clear;
Procedure Delete(Index:Integer);

property Count: Integer read FCount;
property ItemIndex: Integer read FItemIndex write FItemIndex;
property Items[index: integer]: DIImpClass read GetItem;

constructor Create;
destructor Destroy; override;
end;


implementation

//--

---

← →
Вадим ©   (2003-03-10 13:43) [9]

И в каком месте ошибка возникает?

---

← →
Palladin ©   (2003-03-10 13:58) [10]

прикольно ты пошутил в 2 местах
когда обзвал тип record классом
и когда функцию DIImportClasses.GetItem уместил в 16 строк, когда достаточно лишь
Function DIImportClasses.GetItem(Index:integer):DIImpClass;
begin
If Index>Length(Flist)-1 Then Exit;
result:=FList[Index];
end;

а так на первый взгляд ошибки я не вижу...
скажи точней где она возникает

---

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

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



Память: 0.47 MB
Время: 0.011 c