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

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

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



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