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

//--

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

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

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

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