Текущий архив: 2003.10.23;
Скачать: 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 вся ветка
Текущий архив: 2003.10.23;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.035 c
