почему выдает 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

понятно, надо было самому додумать

почему выдает AV ? Найти похожие ветки