線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1057
推到 Plurk!
推到 Facebook!

一个初级问题

答題得分者是:st33chen
zhouying82
高階會員


發表:150
回覆:272
積分:189
註冊:2004-03-16

發送簡訊給我
#1 引用回覆 回覆 發表時間:2009-03-10 23:33:25 IP:116.230.xxx.xxx 訂閱
我想判断MEMO1里面的内容是否为空,代码总是出错。是什么原因?

[code delphi]
memo1.setfocus;
if (memo1.text<>' ') then
showmessage('hello,that's ok')
else
showmessage('error');
[/code]
------
断断续续的学了几年,还是一个初学者,永远支持Delphi !
st33chen
尊榮會員


發表:15
回覆:591
積分:1201
註冊:2005-09-30

發送簡訊給我
#2 引用回覆 回覆 發表時間:2009-03-10 23:37:08 IP:122.116.xxx.xxx 未訂閱

===================引 用 zhouying82 文 章===================
我想判断MEMO1里面的内容是否为空,代码总是出错。是什么原因?

[code delphi]
memo1.setfocus;
if (memo1.text<>' ') then <---- 如果還不行, 再改 if trim(memo1.text)<>'' then
showmessage('hello,that's ok') <--- t h a t ' ' s o k 兩個單引號
else
showmessage('error');
[/code]
------
IS IT WHAT IT IS
我是 李慕白 請倒著唸.
又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.
P.D.
版主


發表:603
回覆:4038
積分:3874
註冊:2006-10-31

發送簡訊給我
#3 引用回覆 回覆 發表時間:2009-03-11 02:16:30 IP:61.67.xxx.xxx 未訂閱
請使用 if memo1.lines.count=0
用 if mem1.text='' 並不恰當, 因為 '' 不等於 null值
zhouying82
高階會員


發表:150
回覆:272
積分:189
註冊:2004-03-16

發送簡訊給我
#4 引用回覆 回覆 發表時間:2009-03-11 20:49:53 IP:116.230.xxx.xxx 訂閱
楼上的我试过了,都没有用的,一开始执行没有问题,等你删除了MEMO里面的内容之后,重新在点击按钮,又就会显示出错信息了。
------
断断续续的学了几年,还是一个初学者,永远支持Delphi !
老大仔
尊榮會員


發表:78
回覆:837
積分:1088
註冊:2006-07-06

發送簡訊給我
#5 引用回覆 回覆 發表時間:2009-03-12 00:47:59 IP:59.114.xxx.xxx 未訂閱

[code delphi]
if Memo1.Text = '' then
showmessage('ok')
else showmessage('no')

[/code]
zhouying82
高階會員


發表:150
回覆:272
積分:189
註冊:2004-03-16

發送簡訊給我
#6 引用回覆 回覆 發表時間:2009-03-12 09:13:12 IP:218.80.xxx.xxx 訂閱
没用的,我试过
------
断断续续的学了几年,还是一个初学者,永远支持Delphi !
老大仔
尊榮會員


發表:78
回覆:837
積分:1088
註冊:2006-07-06

發送簡訊給我
#7 引用回覆 回覆 發表時間:2009-03-12 23:03:59 IP:220.140.xxx.xxx 未訂閱
可以請你貼上你的程式碼部份嗎?
為什麼會有錯誤呢?錯誤訊息是什麼呢?
我也試著刪了MEMO中的內再去執行一次
結果試了是沒問題的耶@@
luowy651
高階會員


發表:257
回覆:313
積分:114
註冊:2003-04-09

發送簡訊給我
#8 引用回覆 回覆 發表時間:2009-03-13 10:24:19 IP:122.233.xxx.xxx 訂閱
试试这个,请把code都paste过去,因为你的原code中有错误,比如你把''写成'    ',其实是不一样的,还有,that's 中的单引号也会出错,另外,还应加上trim()函数

memo1.setfocus;
if (trim(memo1.text)<>'') then
showmessage('hello,that is ok')
else
showmessage('error');



===================引 用 zhouying82 文 章===================
我想判断MEMO1里面的内容是否为空,代码总是出错。是什么原因?

[code delphi]
memo1.setfocus;
if (memo1.text<>' ') then
showmessage('hello,that's ok')
else
showmessage('error');
[/code]
編輯記錄
luowy651 重新編輯於 2009-03-13 10:56:18, 註解 無‧
zhouying82
高階會員


發表:150
回覆:272
積分:189
註冊:2004-03-16

發送簡訊給我
#9 引用回覆 回覆 發表時間:2009-03-13 16:24:15 IP:218.80.xxx.xxx 訂閱
还是应该谢谢楼上的各位,我用了另外一种方式,已经解决.
------
断断续续的学了几年,还是一个初学者,永远支持Delphi !
系統時間:2024-05-14 18:53:35
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!