この発言は
#00785　TORA            さんのRE:図形の移動（続き）
に対するコメントです



事故レスです。 ＴＯＲＡです。

>// オブジェクトの破棄
>procedure TForm1.FormDestroy(Sender: TObject);
>var
>  I : integer;
>begin
>  if ShapeList <> nil then  // 図形リストの解放
>    begin
>      for I := 0 to ShapeList.Count - 1 do
>        if ShapeList[I] <> nil then
>          TCyokusen(ShapeList[I]).Free;
           ~~~~~~~~~
           TToraShape(ShapeList[I]).Free; の間違いです。(^^;
           ~~~~~~~~~~

                   99/01/08 (金) 16:05  ＴＯＲＡ(HHD00760)

Original document by TORA            氏 ID:(HHD00760)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。