如果想要讓edit 只能夠輸入數字資料(整數且必須大於零)

begin

if edit1..........(這邊語法該如何下呢?)

then showmessage('必須為整數')

else begin...

可以用MaskEdit或SpinEdit來代替
(雖然有點偷吃步的感覺....)

您好,

單從 delphi 語法來討論 (不討論有無元件或元件屬性可用)
if strtointdef(trim(edit1.text),0)<=0 then
showmessage('必須為大於零整數')
else begin
...
end;

------
IS IT WHAT IT IS
我是 李慕白 請倒著唸.
又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.

編輯記錄

我的作法:

用KeyPress Events


[code delphi]
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9']) then
key:=#0
end;
[/code]

感謝st33chen
方法比較接近我想要的效果！

也謝謝 frappe
不過frappe 的做法 打錯時
不能使用back space 只能使用delete
但也又學了一招^^

===================引 用 st33chen 文 章===================
您好,

單從 delphi 語法來討論 (不討論有無元件或元件屬性可用)
if strtointdef(trim(edit1.text),0)<=0 then
showmessage('必須為大於零整數')
else begin
...
end;

如果要解決無法使用back space只要這樣做就好~
[code delphi]
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key <> #8 then
if not (Key in ['0'..'9']) then
Key := #0
end;
[/code]

===================引 用 g9614721 文 章===================
感謝st33chen
方法比較接近我想要的效果！

也謝謝 frappe
不過frappe 的做法 打錯時
不能使用back space 只能使用delete
但也又學了一招^^

===================引 用 st33chen 文 章===================
您好,

單從 delphi 語法來討論 (不討論有無元件或元件屬性可用)
if strtointdef(trim(edit1.text),0)<=0 then
showmessage('必須為大於零整數')
else begin
...
end;

NumbersOnly:=true;