テキストボックスが空だったら・・・を判定したい

解決

パスコ 2006-11-25 01:24:26 No: 24044 IP: 192.*.*.*

たびたび失礼します。

何かを勘違いしているのかもしれないのですが、いくらやっても出来ないので
お知恵を貸してください。

テキストボックス、または、EDITを
ダブルクリックしたとき、空だったら・・・
と判定したいのですが、なぜか出来ません。

if Edit1.Text = ''  then
         Edit1.Text := 'bbbb'
     else
         Edit1.Text :='aaaa';
end

いくらやってもelseの方に行ってしまいます。
判定文のEdit1.Text  を  Trim(Edit1.Text)
のようにしてみたのですが、だめでした。

どのようにすればよいのでしょうか？

編集削除

まこと 2006-11-25 06:36:53 No: 24045 IP: 192.*.*.*

提示されているコードは正常に動きますが…
他の部分，例えばOnChangeイベントなどに原因となる
コードが記述されてしまっているのではないでしょうか。
(とりあえず新規Projectで試してみるとよいと思います。)

編集削除

HOta 2006-11-25 07:20:06 No: 24046 IP: 192.*.*.*

ここにブレークポイントをかけて、Edit1.Textの値を見ても、''でしょうか？

編集削除

パスコ 2006-11-25 12:59:42 No: 24047 IP: 192.*.*.*

まことさん HOtaさん

ありがとうございます。

もう一度はじめからやり直したところうまく出来ました。

おっしゃる通り他の部分が悪さをしていたみたいです。

ちなみにブレークポイントはステップ実行でしょうか？

それも試して見ます。

編集削除