Delphiですが、楕円の回転について関数を見つけ

質問

超マイナーになってしまったDelphiパスカル言語です。
楕円の回転について関数を見つけのですが、
http://delfusa.main.jp/delfusafloor/archive/www.nifty.ne.jp_forum_fdelphi/samples/00601.html
しかし、当方知識不足の為理解できません。
関数drawDeclinedEllipsePは宣言されていますが、中身がないような。
procedureがbegin~~end;で終わっていいるのに、次にいきなりまたbegin~~endがあるとか？
ぜひこの「任意の角度から任意の角度まで任意の角度傾けた楕円を描く」関数を使いたいのですが、
助けて頂ける方、いらっしゃいませんか？

回答No.2

A88No8 · ベストアンサー

こんにちは
＃１のお礼への補足です。
>drawDeclinedEllipsePPはありますが、
>drawDeclinedEllipsePがなくて・・・（引数も違う）
> 異なる手続き（いきなりbegin~~end）がdrawDeclinedEllipsePかと思っても違うし・・・

　構造化言語のPascalは、手続きの中に作業用の手続きをローカル変数のように隠し持つことが出来るんです(^^)
　これは定義した手続きの外の手続きからは呼び出せないので手続きの名前重複が防げたりしまする(^^)v
　またメインプログラムの前にメインプログラムが使用するすべてのサブProcedureとFunctionを定義しなければならない（CやFORTRANとかと違う部分）約束があります(^_;)

　なので、下記のような構造になっているんじゃないかしら(^^;?
　間違っていたら諸先輩方が正してくれると思いますm(^_^;)m
procedure drawDeclinedEllipseP
　function rot
　begin
　　rotのコード
　end;
　procedure drawDeclinedEllipsePP
　begin
　　drawDeclinedEllipsePPのコード（rot functionをコール）
　end;
begin
　drawDeclinedEllipsePのコード（手続きdrawDeclinedEllipsePPを実行）
end;

//サンプル手続き
　procedure TForm1.Button1Click
　begin
　　サンプルプログラムTForm1.Button1Clickのコード（drawDeclinedEllipsePを実行）
　end;

　回答は、URLの言語文法を参考にしましたm(__)m

参考URL：

http://www.math.nagoya-u.ac.jp/~naito/lecture/2000_SS/notes/pascal.pdf

お礼

>手続きの中に作業用の手続きをローカル変数のように隠し持つ
ありがとうございます。解決しました。
デルファイは好きで使っていますが、こんな使い方したことがありませんでした。
感謝、感謝です

回答No.1

A88No8

こんにちは
>関数drawDeclinedEllipsePは宣言されていますが、中身がないような。
　見たところdrawDeclinedEllipsePの中身はありますよ。(^^;
>procedureがbegin~~end;で終わっていいるのに、次にいきなりまたbegin~~endがあるとか？
　それは、異なる手続きです(-_-;)
　TForm1.Button1Click手続きはdrawDeclinedEllipseP手続きの使い方を示すサンプルプログラムですm(__)m

お礼

ご回答、ありがとうございます。
drawDeclinedEllipsePPはありますが、
drawDeclinedEllipsePがなくて・・・（引数も違う）
異なる手続き（いきなりbegin~~end）がdrawDeclinedEllipsePかと思っても違うし・・・