08/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がどうたらというエラーでコケマス。