delphiで、タイマー関数の中で、変数の初期値を入れ、カウントする場合。

質問

delphiで、タイマーで関数を作るとします。
正式な呼び名が分からないのですが、いわゆるTimer1Timerこれです。

１秒ごとに、０からカウントする機能をつけたいのですが、変数の型を宣言する所に、変数を入れると、注意されます。
下記の方法だと、変な値が入ります。
関数の中に入れてしまうと、最初に入れた値に、毎回初期化されてしまいます。

こんな事を考慮に入れていない訳がないと思うのですが、当方に知識としてありません。
どうか、よろしくお願いします。
あ、もちろん、グローバル変数や、外部から持ち込むのは、やり方として分かるのですが、それが正統的なやり方ですか？
label3に０を入れて、読み取って、１足して、label3に返して・・・の繰り返し、とか。

procedure TForm1.Timer1Timer(Sender: TObject);
var
　Count : Integer ;
begin
　Count := Count +1 ;
　//Inc(Count,1);

　label2.Caption := IntToStr(Count) ;
end;

回答No.1

techa · ベストアンサー

このプログラムで利用されている,Count変数は初期化されていないので
まずいですね。
Timer関数内にはいったときにCount変数が確保されるのですが
初期化されていないので、それに+1してもどんな値になるか確証がありません。仮に初期化されていたとしても、この値＋１にしかならず意味がありませんね。
C/C++の場合、
static int Count = 0;
と宣言すればよいのですが、Delphiにはこのような機能はないようです。
グローバル変数かクラスメンバ変数として確保しておいて、ソフト起動時（コンストラクタの呼び出し時）に初期化するのが一般的ではないでしょうか。
Labelのキャプションを呼び出して．．．というのは、あまりおすすめできませんね。
あとは、Timer1のプロパティのtagに初期情報をいれておいて、内部から参照するというのもありかもしれません。
デザイン時にTimer1.tagを０にしておいて、
Timer1Timer関数内で
Timer1.tag := Timer1.tag + 1
ってしていけばよいのではないかな。

お礼

グローバル変数は、極力使いたくないので、クラスメンバ変数ですかー。
私もあれから、時間を見つけて調べました所、delphiでは、static int Count = 0;は無理みたいですね。
Tagプロパティーは、「開発者の便宜を図るために用意されています」と書かれていたので、使ってみたいと思います。

ところで、
キャプションを使っては行けない理由ってありますか？
まぁ、スマートではないのは分かります。
不可視にしちゃえば、さほど問題もない気もしますし。
処理速度の問題かな？とりあえず、１０００回ループでもして実験したいと思います。

本当にありがとうございます。

回答No.2

techa

> キャプションを使っては行けない理由ってありますか？
いけないとはいいませんが、
AnsiString型　<=> 数値型
という変換が頻繁におこるのと、実数を扱うようになると
誤差もでてくるので、得策ではないとおもいます。
（実数をつかうならTagはつかえなくなりますが）
それに画面表示を参照するとなると、全体の動きが見えにくくなり
結局、いらないバグが入り込む余地がうまれてしまいますし。
それくらいの意味しかないとおもいますが。

お礼

アホな子のアホな追加質問でした。

確かに、キャプションだと、いろいろと細かな面倒が増えました。

ちょっとした計算でも、delphiは型の変換をして、さらに変換して、戻すことが多いので、簡単な方がいいに決まっています。

また、今回はキャプション自体を表示して、利用するので、キャプション自体は無駄ではないのですが、そこまでの情報は出していなく、一般論からすると、変なキャプションは出さない方が、簡単って事です。

tagの方が簡単ですね。＾＾；

ありがとうございます。