掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
印刷時に左余白を作るには（フォームの印刷） (ID：7675)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
蛇足ですが、ある関数や手続きを使う場合、コンパイラが先に認識できる ように使う行より上に実装するか、あるいは宣言部に宣言しておく必要が あります。例えば、自分独自の関数 SumTwo() をつくったとします。これを 使う直前に実装するには function SumTwo(const Int1,Int2:integer):integer; begin result := Int1 + Int2; end; procedure TForm1.Button1Click(Sender: TObject); begin Label1.Caption := IntToStr(SumTwo(2,3)); end; こんなふうにします。今回の StretchDrawBitmap() 手続きもこれと同じです。 宣言部に宣言しておくと、実装部では呼ばれるのと実装との順序は任意です。 こんな感じです。 { Private 宣言 } public { Public 宣言 } end; function SumTwo(const Int1,Int2:integer):integer; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); begin Label1.Caption := IntToStr(SumTwo(2,3)); end; function SumTwo(const Int1,Int2:integer):integer; begin result := Int1 + Int2; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.