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

解決

パスコ 2006-11-25 10:24:26 No: 24044

たびたび失礼します。

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

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

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

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

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

まこと 2006-11-25 15:36:53 No: 24045

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

HOta 2006-11-25 16:20:06 No: 24046

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

パスコ 2006-11-25 21:59:42 No: 24047

まことさん HOtaさん

ありがとうございます。

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

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

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

それも試して見ます。