J jzhang Unregistered / Unconfirmed GUEST, unregistred user! 1999-09-12 #1 memo控件的OnChange事件中的一段代码: if memo1.text=''then button1.enabled:=false; 执行后无效,why?
小 小天 Unregistered / Unconfirmed GUEST, unregistred user! 1999-09-12 #3 if memo1.Lines.Count=0 then button1.Enabled:=false;
Y YoYoYo Unregistered / Unconfirmed GUEST, unregistred user! 1999-09-12 #4 语句没有问题,是你自己没有把空格全部删掉!!! 因为空格肉眼是看不到的!当MEMO处于击活状态时,你可 以摁方向键,看是否还有下一行. 如果不信的话,你就摁DELETE键,保证COMMAND会ENABLE
语句没有问题,是你自己没有把空格全部删掉!!! 因为空格肉眼是看不到的!当MEMO处于击活状态时,你可 以摁方向键,看是否还有下一行. 如果不信的话,你就摁DELETE键,保证COMMAND会ENABLE
J jzhang Unregistered / Unconfirmed GUEST, unregistred user! 1999-09-12 #5 能不能使memo为空时button1.enabled:=false?
R RedCat Unregistered / Unconfirmed GUEST, unregistred user! 1999-09-12 #6 var i: Integer; begin Button1.Enabled:=false; for i:=0 to Memo1.Text.Count-1 do if not Memo1.Text in (' ',#13,#10) then Button1.Enabled:=true; end;
var i: Integer; begin Button1.Enabled:=false; for i:=0 to Memo1.Text.Count-1 do if not Memo1.Text in (' ',#13,#10) then Button1.Enabled:=true; end;
A Another_eYes Unregistered / Unconfirmed GUEST, unregistred user! 1999-09-12 #7 agree 小天. 只有在memo.text为'' 时, memo.line.count才为0.
J Jams Unregistered / Unconfirmed GUEST, unregistred user! 1999-09-12 #8 ''与' '不同。''为Memo1.text为空，而' '则Memo1.text中有字符(空格字符) 所以''不等于' '.可能问题就在于此吧！
R RedCat Unregistered / Unconfirmed GUEST, unregistred user! 1999-09-12 #9 Sorry, RedCat9-9-12 16:41:43作答大错! 手边没有Delphi，误人子弟... 以下为正确答案 Button1.Enabled:=false; for i:=0 to Length(Memo1.Text)-1 do if not (Memo1.Text in [' ',#0,#13,#10]) then Button1.Enabled:=true;
Sorry, RedCat9-9-12 16:41:43作答大错! 手边没有Delphi，误人子弟... 以下为正确答案 Button1.Enabled:=false; for i:=0 to Length(Memo1.Text)-1 do if not (Memo1.Text in [' ',#0,#13,#10]) then Button1.Enabled:=true;
