Форум: "Начинающим";
Текущий архив: 2008.08.31;
Скачать: [xml.tar.bz2];
Внизпочему выдает AV ? Найти похожие ветки
← →
Vlad Oshin © (2008-07-25 12:16) [0]function Cr(V:Tobject;Ref:string):TObject;
var
P: TPersistent;
T: TPersistentClass;
begin
T := FindClass(Ref);
RESULT:=T.Create;
end;
procedure TForm3.Button1Click(Sender: TObject);
var
SL: TObject;
begin
with TStringList(Cr(SL,"TStringList")) do
try
Add("qqqqqqqq");
Showmessage(GetText);
finally
Free;
end;
with Tmemo(Cr(SL,"tmemo")) do
try
Lines.Add("wwwwwww"); // <-------------- AV
Showmessage(lines.GetText);
finally
Free;
end;
end;
initialization
RegisterClasses([TStringList, Tmemo]);
← →
Игорь Шевченко © (2008-07-25 12:19) [1]а это ничего, что у Tmemo конструктор другой ?
← →
Сергей М. © (2008-07-25 12:24) [2]
> почему выдает AV ?
>
Потому что Lines = nil
← →
Vlad Oshin © (2008-07-25 12:26) [3]понятно, надо было самому додумать
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2008.08.31;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.006 c