第三课

阁龙1427

个位数遇到如下问题 代码和小甲鱼一样的  和自己的软件名字相符  为什么老师出错

Gkimidr_源

procedure TForm1.Button1Click(Sender: TObject);
var
x:integer;
begin
   x:= strtoint(edit1.text);
   edit1.text:=inttostr (x mod 10);
end;

end.

修正后
procedure TForm1.Button1Click(Sender: TObject);
var
   x: integer;
begin
     x:= StrToInt( edit1.text );   
   Label1.caption:=IntToStr(x mod 10);
end;

end.

Biner

兄弟 小甲鱼 视频 我没看过哦  你直接说下问题吧！  不然我也不知道你在问什么哦 ？{:1_1:}

某某人

什么问题？

8612328

procedure TForm1.Button1Click(Sender: TObject);
var
x:integer;
begin
   x:= strtoint(edit1.text);
   edit1.text:=inttostr (x mod 10);
end;

end.

qidaoshen

看一看 看一看