请教大家为指针类型变量赋值

Question

有个part类，part类里有一个design变量是pointer类型，他的默认值是'abc'
我想给这个变量赋值，但不成功。
大家看一下结果
var
str:string;
beginshowinfo(GetStringFromTextObject(part.design));
str:='hello';
part.design:=@str;
showinfo(GetStringFromTextObject(part.design));
end;
输出结果是：
第一行为：abc
第二行为：空
请教高手怎么解决

Answer 1

design变量是pointer类型，他的默认值是'abc'
===================================================看不懂……把你的类的定义贴出来看看

Answer 2

付值是正确的，取得时候不对应该是这样: string(part.design^)

Answer 3

我在描述清楚一下：
有两个类tschtextfield{
                      IsHidden:boolean;
                      Text:string;
                      }
part{
     designor ：tschtextfield；
    }
我现在想给part类的designor下面的text赋值
应该怎么处理

Answer 4

???
直接赋值啊~~~ part.designor.text := 'abc';pointer的问题  part.design:=pointer(str);