阁龙1427 发表于 2012-4-2 11:20:39

第三课

本帖最后由 乐yi忘忧 于 2012-5-17 20:14 编辑

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

Gkimidr_源 发表于 2012-4-2 11:20:40

本帖最后由 Gkimidr_源 于 2012-5-16 10:26 编辑

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 发表于 2012-4-25 18:06:20

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

某某人 发表于 2012-5-16 08:55:52

什么问题？

8612328 发表于 2012-5-16 09:38:09

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

end.

qidaoshen 发表于 2014-3-16 01:51:14

看一看 看一看
页: [1]
查看完整版本: 第三课