procedure TForm2.btnClick(Sender: TObject);
var Mbefore:integer;
begin
Mbefore:=strtoint(Form2.edtMbefore.Text);
if (15<=Mbefore<=30) then//這句不對。請問該怎樣寫?? showmessage('範圍正確');
else
begin
showmessage('範圍不對!請重新輸入');
end;
end;
===========================================
謝謝各位,我會給分的
幫幫忙~~~~~
var Mbefore:integer;
begin
Mbefore:=strtoint(Form2.edtMbefore.Text);
if (15<=Mbefore<=30) then//這句不對。請問該怎樣寫?? showmessage('範圍正確');
else
begin
showmessage('範圍不對!請重新輸入');
end;
end;
===========================================
謝謝各位,我會給分的
幫幫忙~~~~~
解决方案 »
- 如何获得外部程序的TWebBrowser中的内容?
- 很菜的问题,请大侠们帮帮我
- 谁有可以把汉字转换成拼音的代码
- 【paradox】的数据库谁有比较简单些的还原备份数据的例子?因为不想将备份和主程序分开。所以拷贝复制的办法不行。
- 怎样做类似QICQ界面的竖形导航栏?
- 高手请进!
- Delphi如何做到监视一个WEB窗口的运行,并能截取WEB窗口发往网站的消息?在线等候...
- 在oracle中怎样调试触发器???
- 请问如何通过相应F1键来调用HtmlHelp?
- 请教高手,处理TREEVIEW的水平滚动!!!100分奉送!
- ADO和Access数据保存效率问题。(4000数据30秒)
- DateTimePicker1控件的賦值問題,,姐姐哥哥們。幫幫哦
...