名前 題名 ▼ Mr.XRAYさん > ▼ ｎｙさん > > > そのまんまコピペで良かったのですね。 > > パスカル特有の構造化うんたら？ > > サンプルコードを分割させて、あっちこっちに張っていました。 > > ネット上のサンプルのコードは断片的なのもありますから，難しいですよね． > なので，当サイトは，なるぺくプロジェクトをそのままダウンロードできるように > しています． > > >http://delfusa.main.jp/delfusafloor/archive/www.nifty.ne.jp_forum_fdelphi/samples/00601.html > > では，コードの構造が次のようになっています． > > procedure drawDeclinedEllipseP(.... > type > ... > const > ... > var > .... > begin > ... > end; > > procedure TForm1.Button1Click(Sender: TObject); > > 以下，略 > 途中に type やら const 等があるので迷いやすいですが， > 基本は procedure から end; までですね． > (あるいは function から end; までとか) > > 凛さんのコードでは，drawDeclinedEllipseP のコードが > Button1 クリックのコードより前にあれば動作します． > > 今回のような > type や const の記述は，そのプロシージャー(メソッドやイベントのコード等) > 内だけしか使わない時によく使用します． > そうすれば，他で使わないということで，コードの解読はしやすいかと... > そんなとこです．ハイ． GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示). (上限122000(120k)バイト) 削除キー Link