Создание класса с полем типа TStringList. Ошибка при его заполнении

[Son]

Возникла такая проблема. Создаю класс в отдельном модуле.

unit Prog_Utils;

interface

uses Windows, Controls, Classes, Messages;

type
TLinkDataRect = class

public
Index :integer;
Caption :string[255];
Plugin :string[255];
Description :string;
PathSave :string;
TimeSave :TTime;
TimeDelta :TTime;
LinkList :TStringList;
FileMask :TStringList;

constructor Create;
function LinkListAdd(sLink:string):integer;
function FileMaskAdd(sMask:string):integer;
end;

implementation

{ TLinkDataRect }

constructor TLinkDataRect.Create;
begin
LinkList:=TStringList.Create;
FileMask:=TStringList.Create;
end;

function TLinkDataRect.FileMaskAdd(sMask: string):integer;
begin
Result:=FileMask.Add(sMask);
end;

function TLinkDataRect.LinkListAdd(sLink: string):integer;
begin
Result:=LinkList.Add(sLink);
end;

end.

В основном модуле программы создаю динамический список типа этого класса.

var
Form1: TForm1;
ar_Link:array of TLinkDataRect;

На Form1.FormShow вешаю заполнение элементов списка:

procedure TForm1.FormShow(Sender: TObject);
var ex:variant;
i,nom,n:integer;
begin
nom:=0;
SetLength(ar_Link,nom);
if FileExists(ExtractFileDir(ParamStr( 0))+'\data\data_link.xls') then
begin
ex:=CreateOleObject('Excel.Applicat ion');
Ex.WorkBooks.Open(ExtractFileDir(Pa ramStr(0))+'\data\data_link.xls');
i:=2;
while AnsiLowerCase(Ex.Cells[i,1].Value)<>'end' do
BEGIN
if Ex.Cells[i,1].Value<>0 then
begin
inc(nom);
SetLength(ar_Link,nom);
ar_Link[nom]:=TLinkDataRect.Create;
ar_Link[nom].Index:=Ex.Cells[i,1].Value;
ar_Link[nom].Caption:=Ex.Cells[i,2].Value;
ar_Link[nom].Description:=Ex.Cells[i,3].Value;
ar_Link[nom].PathSave:=Ex.Cells[i,4].Value;
ar_Link[nom].TimeSave:=Ex.Cells[i,5].Value;
ar_Link[nom].TimeDelta:=Ex.Cells[i,6].Value;
ar_Link[nom].Plugin:=Ex.Cells[i,7].Value;
n:=ar_Link[nom].LinkList.Add(Ex.Cells[i,8].Value);
n:=ar_Link[nom].FileMask.Add(Ex.Cells[i,9].Value);
end
else
begin
if nom<>0 then
begin
n:=ar_Link[nom].FileMaskAdd(Ex.Cells[i,8].Value);
n:=ar_Link[nom].FileMaskAdd(Ex.Cells[i,9].Value);
end;
end;
inc(i);
END;
//Ex.visible:=true;
Ex.WorkBooks.Close;
Ex.Quit;
end;

end;

Ошибка возникает в строке:

n:=ar_Link[nom].LinkList.Add(Ex.Cells[i,8].Value);

В чем я ошибаюсь?

[NervniiJ]

Какая ошибка? Ошибка подключения к пульту управления миром?

[MaxNik2009]

так попробуй:
n:=ar_Link[nom].LinkList.Add(String(Ex.Cells[i,8].Value));

[Son]

Извините. искал как загрузить изображение. Вот скриншот ошибки.

[NervniiJ]

Вот теперь хотябы видно куда смотреть:

nom:=0;
SetLength(ar_Link,nom);
if FileExists(ExtractFileDir(ParamStr( 0))+'\data\data_link.xls') then
begin
ex:=CreateOleObject('Excel.Applicat ion');
Ex.WorkBooks.Open(ExtractFileDir(Pa ramStr(0))+'\data\data_link.xls');
i:=2;
while AnsiLowerCase(Ex.Cells[i,1].Value)<>'end' do
BEGIN
if Ex.Cells[i,1].Value<>0 then
begin
inc(nom); // тут 1
SetLength(ar_Link,nom);
ar_Link[nom]:=TLinkDataRect.Create; // А индексы с нуля начинаются, помним?

[Son]

все верно. Пойду убъюсь об стену. Спасибо большое!

[bitSoft]

Сообщение от NervniiJ

Вот теперь хотябы видно куда смотреть:

nom:=0;
SetLength(ar_Link,nom);
if FileExists(ExtractFileDir(ParamStr( 0))+'\data\data_link.xls') then
begin
ex:=CreateOleObject('Excel.Applicat ion');
Ex.WorkBooks.Open(ExtractFileDir(Pa ramStr(0))+'\data\data_link.xls');
i:=2;
while AnsiLowerCase(Ex.Cells[i,1].Value)<>'end' do
BEGIN
if Ex.Cells[i,1].Value<>0 then
begin
inc(nom); // тут 1
SetLength(ar_Link,nom);
ar_Link[nom]:=TLinkDataRect.Create; // А индексы с нуля начинаются, помним?

vapsheta zdesi tipa tak nado

if Ex.Cells[i,1].Value<>0 then
begin
ar_Link[nom]:=TLinkDataRect.Create;
inc(nom);
SetLength(ar_Link,SizeOf(ar_Link)+nom);// tut

[NervniiJ]

vapsheta zdesi tipa tak nado

Код:

if Ex.Cells[i,1].Value<>0 then
begin
ar_Link[nom]:=TLinkDataRect.Create;
inc(nom);
SetLength(ar_Link,SizeOf(ar_Link)+n om);// tut

vapsheta tak nado toliko tebe.

[evg_m]

inc(nom);
SetLength(ar_Link,nom);
n:=ar_Link[nom].LinkList.Add(Ex.Cells[i,8].Value);
нумерация с НУЛЯ
последний индекс nom-1