|
▼ takaさん
> コードを1回チェックに修正したらでなくなりました。
> 落ちていた原因がUniqueStringではなかったみたいです。
> 違うところで落ちてたみたいです。
ゴメンナさい．私のミスです．こちらでも例外発生しなくなりました．
プロジェクトのビルド (再構築) を忘れていました (汗)
>
> if (PChar(LErrStr) = PChar(E.Message)) then
> Memo1.Lines.Add(Format('%d %d', [Integer(PChar(LErrStr)),Integer(PChar(E.Message))]));
> UniqueString(LErrStr);
>
> Memo1.Lines.Add(Format('%d %s', [Integer(PChar(LErrStr)), LErrStr]));
>
> を別々のところに差し込むとアドレスが変更されたのがわかります。
なるほど，こういうコードにすればいいですね．
|