- 440 名前：デフォルトの名無しさん mailto:sage [2008/04/24(木) 20:48:01 ]
- 437です。
>>438
呼び出し元の方は変更できませんので、呼び出し先の方でなんとかしたいです。
で、とりあえず、色々やってみたのですが、
procedure Foo(P: Pointer);
begin
Pointer(P^) := Pointer(StrNew('あいうえお'));
end;
でやると一応動いているようには見えますが、StrNewの方で参照カウントが設定
されていないので、ちょっと不安です。
呼び出し元がWideStringで
procedure Foo(P: Pointer);
begin
Pointer(P^) := Pointer(WStrNew('あいうえお'));
end;
でやるとHeapがどうたらというエラーでコケマス。
