function isint(txt: string):boolean; var i:integer;begin for i:=1 to length(txt) do if (txt[i] in ['0'..'9']) then Result :=true else Result :=false; end;
var i : integer; begin TryStrToInt(Edit3.Text, i); if Length(IntToStr(i)) < Length(Trim(Edit3.Text)) then ShowMessage('Edit1里不是一个整数'); end;
告诉你简单的 function isdigit(str:string):boolean; begin result:=false; try strtoint(str); result:=true except result:=false; end; end;
SetWindowLong(Edit1.Handle, GWL_STYLE,GetWindowLong(Edit1.Handle, GWL_STYLE) or ES_NUMBER); 你也可以限制Edit1只能输入数字。
function IsNumStr(str1: string): boolean; // 判斷字符串str1是否數字型字符串(不包含小數點'.'和三位一撇','), // 返回邏輯結果True,False var i: integer; bFlag: boolean; begin bFlag := true; for i := 1 to length(str1) do begin if (copy(str1, i, 1)<'0') or (copy(str1, i, 1)>'9') then bFlag := false; end; result := bFlag; end;
同意《Northwindrocker(北风) 告诉你简单的》 function isdigit(str:string):boolean; begin result:=false; try strtoint(str); result:=true except result:=false; end; end; 是的,这是比较简单的做法!
var i:integer;begin
for i:=1 to length(txt) do
if (txt[i] in ['0'..'9']) then Result :=true
else Result :=false;
end;
i : integer;
begin
TryStrToInt(Edit3.Text, i);
if Length(IntToStr(i)) < Length(Trim(Edit3.Text)) then
ShowMessage('Edit1里不是一个整数');
end;
function isdigit(str:string):boolean;
begin
result:=false;
try
strtoint(str);
result:=true
except
result:=false;
end;
end;
// 判斷字符串str1是否數字型字符串(不包含小數點'.'和三位一撇','),
// 返回邏輯結果True,False
var
i: integer;
bFlag: boolean;
begin
bFlag := true;
for i := 1 to length(str1) do
begin
if (copy(str1, i, 1)<'0') or (copy(str1, i, 1)>'9') then
bFlag := false;
end;
result := bFlag;
end;
function isdigit(str:string):boolean;
begin
result:=false;
try
strtoint(str);
result:=true
except
result:=false;
end;
end;
是的,这是比较简单的做法!