南
南京男生
Unregistered / Unconfirmed
GUEST, unregistred user!
如下一个类：
TMyObject = class
private
FName : String;
public
property Name :string read FName write FName ;
end;
我现在想建立一个 TMyObject的链表，在循环中调用New()函数时遇到string类型
属性赋值时会出错。如下：
procedure TForm1.Button1Click(Sender: TObject);
var P: ^TMyList;
begin
New(p);
p^.Name := '1';
********
end;
打*的句子会出错，请问各位：我该怎么处理？1、）是将FName 和Name给为定长类型的字符串？
2、）不用New()函数，自编clone函数？？？
谢谢，本人比较着急，麻烦大侠们照顾照顾。
TMyObject = class
private
FName : String;
public
property Name :string read FName write FName ;
end;
我现在想建立一个 TMyObject的链表，在循环中调用New()函数时遇到string类型
属性赋值时会出错。如下：
procedure TForm1.Button1Click(Sender: TObject);
var P: ^TMyList;
begin
New(p);
p^.Name := '1';
********
end;
打*的句子会出错，请问各位：我该怎么处理？1、）是将FName 和Name给为定长类型的字符串？
2、）不用New()函数，自编clone函数？？？
谢谢，本人比较着急，麻烦大侠们照顾照顾。