Question

delphi7 里 edit1 是输入自然数要在 label1 里变成自然数 1怎么编写代码

delphi7 里 edit1 是输入自然数要在 label1 里变成自然数 1怎么编写代码

Answer 1

if edit.text in [0..9]
label1.caption:= '1'
else
label1.caption:='0'

???

Answer 2

什么意思啊??????
在edit1里输入自然数,在label1里变成自然数1
你还用在edit1里输入自然数嘛?
直接Label1.caption:=inttostr(1);不得喽

Answer 3

先判断Edit1.Text里面是否是整型，然后因为自然数不包括0，所以要排除0，具体如下：
function ChkData: Boolean;
var
i:Integer;
begin
Result := false;
if Edit1.Text = '0' then Exit;
for i := 0 to length(Edit1.Text)-1 do
begin
if Edit1.Text[i] not in ['0'..'9'] then
begin
Exit;
end;
end;
Result := True;
end;

然后通过调用函数即可：
if ChkData then Label1.Caption = '1';