名前 題名 ▼ Mr.XRAYさん > ▼ 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])); > > > > を別々のところに差し込むとアドレスが変更されたのがわかります。 > > なるほど，こういうコードにすればいいですね． GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示). (上限122000(120k)バイト) 削除キー Link