くだすれDelphi(超初心者向け）

952 ：950：03/05/24 07:18

Imageをクリックした時の動作をTagごとに分けたいんです。
Imageは５０個ぐらいでTagが１～９０ぐらいまであるので、caseの中身だけ使い回しできたら早いんですが。。
Image５０個全部に↓を書いたら何千行になってしまいますよね。

case Image1.Tag of
　1 : 関数A;
　2 : 関数B;
　(以下略)
end;

この場合、caseで良いんでしょうか？
まだプログラミング始めて１週間なので、これ以外思いつきません。

953 ：デフォルトの名無しさん：03/05/24 07:33

>>952
関数なら関数ポインタとTagとを型キャストで相互変換するとか
メソッドならメソッド配列を作って配列引数として呼び出すとかさ

954 ：デフォルトの名無しさん：03/05/24 07:35

と書いた後で思ったのだが、Image.OnCickをTag毎に設定すればいいんじゃないの？

955 ：デフォルトの名無しさん：03/05/24 07:39

＞Imageは５０個ぐらいで

モグラたたきゲームか？
どっちにしろ、アプローチの仕方が悪いぞ。

956 ：デフォルトの名無しさん：03/05/24 07:44

DelphiのUTF-8ライブラリってみなさん何使ってますか？

957 ：950：03/05/24 08:43

>>953
全然意味がわかりません（´Д⊂

>>955
もぐらたたきじゃないんですけど、どうしてもImageを使わないといけないツールなんです。

958 ：950：03/05/24 08:57

自己解決です。

case (Sender as TImage).Tag of
　1 : 関数A;
　2 : 関数B;
　(以下略)
end;

でできました。
ありがとうございました。

959 ：デフォルトの名無しさん：03/05/24 09:07

>>956
System.UTF8Decode/UTF8Encode
AnsiToUTF8 / UTF8ToAnsi
では足りない？どういった処理をしたい？

960 ：デフォルトの名無しさん：03/05/24 09:18

>>959
おい。先に言って下さい。

今し方UCS2<->UTF-8変換ルーチン書き終えてマターリしてたのに・・・。

961 ：デフォルトの名無しさん：03/05/24 09:58

すみません限界です。
メールチェッカーを作っている者ですが
ｱｲｺﾝ上にﾏｳｽをもっていくと
ｴﾗｰﾀﾞｲｱﾛｸﾞが大量に出て落ちてしまいます。
ｿｰｽを見て頂けませんか？
もう自分ではどこが悪いのかが分かりません…
ttp://isweb41.infoseek.co.jp/computer/ultra-k/test.txt
ここにﾃｷｽﾄ形式であげました。
どうかよろしくお願いします<(__)>

962 ：たぶん：03/05/24 10:19

TaskTrayWndProc 内で CheckIT 変数を参照していますが、
CheckIT変数には代入されないでしょう。

問題は、
１、コンストラクタ中でループしてる為に
　たとえば、　 CheckIt:= TCheckIt.Create;　としたとしても、TaskTrayWndProc メソッドが呼ばれる時には代入されてない

２、そもそも
if (Msg.LParam = LongInt(TaskBarReCreate)) then
　と Self を使えば CheckItを参照する必要はない

という事では？

963 ：デフォルトの名無しさん：03/05/24 10:31

>>961
＞ｴﾗｰﾀﾞｲｱﾛｸﾞが大量に出て落ちてしまいます。

エラーメッセージ読まぬものにプログラムする資格無し。

964 ：デフォルトの名無しさん：03/05/24 10:34

>>952
Image1にそれを書いて、
他のImageNのOnClickにImage1Clickを割り当てたらいいと思う。
またはActionList使う。

965 ：デフォルトの名無しさん：03/05/24 10:42

>>961
一行目の時点でミスってるからじゃないの？

966 ：デフォルトの名無しさん：03/05/24 11:43

>>965
ﾜﾗﾀ

967 ：デフォルトの名無しさん：03/05/24 13:43

Delphi 6 RTL アップデート #3 ｷﾀ━━━━━━(ﾟ∀ﾟ)━━━━━━ !!!!!

968 ：950：03/05/24 14:15

>>964
それだと、Image2の時もImage1のTagを参照してしまうと思うんですが。

969 ：ななしへたぐらま ◆XcB18Bks.Y ：03/05/24 14:17

>>941
　手続きまたは関数の中で宣言する変数（ローカル変数）の場合は最初の値はどちらかはわかりません．それ以外の場合はFalseです．
type
TForm1 = class(TForm)
private
FNantoka: boolean; // フィールド変数．初期値はFalse
procedure Foo;
end;

var
Kantoka: boolean; // グローバル変数．初期値はFalse

function HoeHoe: boolean; // 関数の場合．戻り値も初期値は不定．戻り値は必ず代入しなければならない．
var
Flag: boolean; // ローカル変数．初期値は不定
begin
（略）
end;

procedure TForm1.Foo; // メソッドの場合
var
Done: boolean; // ローカル変数．初期値は不定
begin
（略）
end;

　実際には毎回同じ値が返ってくるので一見大丈夫そうですが，保証されていない以上，同じ値が返ってくることを当て込んではいけません．（コンパイラオプションによっては値が変わるようです）　また，ローカル変数の初期値が不定なのはboolean型変数以外でも同じです．

970 ：デフォルトの名無しさん：03/05/24 14:23

Readmeを見てもアップデートの仕方が良く分かりませんでした。
なぜ、今までと違う複雑な形式でアップデートさせようとしているのでしょうか？
デルファイの限界が垣間見えまし(ry

971 ：デフォルトの名無しさん：03/05/24 14:25

>>968
もっと頭使ってください・・・
Image1.Tagじゃなくて、Form1.Tagを使うとか

972 ：デフォルトの名無しさん：03/05/24 14:27

次スレはこちら
http://pc2.2ch.net/test/read.cgi/tech/1052312038/l50

973 ：デフォルトの名無しさん：03/05/24 14:30

脳内保管で意味分かんないこと書いてしまった（↑２行目）
何やりたいのか見えてこない。頭使えとしか言えない

974 ：A：03/05/24 14:30

>>968
その為の、
case (Sender as TImage).Tag of
だと思うぞ。
解決したんじゃ……？

975 ：950：03/05/24 14:33

>>971
頭使ったんですけど、自分の力ではどうしようもないから先人の知恵をお借りしようとここへ来たわけです。

>>974
解決したんですが、後レスだったんで、そっちの方が良いのかなぁと思ったんです。