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

Не добавляет в TList объект.   Найти похожие ветки 

← →
Kiril ©   (2003-10-13 00:06) [0]

Столкнулся с такой фигней. (Пробовал и TClassList и вообщем все, самое интересное, что при TStrings и добавляю строку, таже ситуация, что и при TList.) При попытке добавить выдает AccessViolation.

TTypeData = class
TypeName : String[20];
SmalHeight : real;
SmalLength : real;
LargeHeight : real;
LargeLength : real;
private
public
end;

-------------------------------------------

type
TTVprogram = class
TypeAll :TList;
procedure Load;
private
public
end;

implementation

procedure TTVprogram.Load;
var t : Text;
ttd : TTypeData;
s : String;
n : Real;
SystemFont : TStrings;
begin
ttd:=TTypeData.Create;
SystemFont:=Screen.Fonts;
AssignFile(t,FontFile);
Reset(t);
while not Eof(t) do
begin
Readln(t,s);
ttd.TypeName:=s;
...
If SystemFont.IndexOf(s)=-1 then Continue
else TypeAll.Add(ttd);//ошибка
end;
CloseFile(t);
end;

---

← →
Palladin ©   (2003-10-13 00:10) [1]

а почемубы ей и не выдавать
объект класса ведь не создан

---

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

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



Память: 0.45 MB
Время: 0.015 c