简单实现将四位数上的每一位分别取出
Step1. 画画(将大体框架搭建好)
1.插入Edit文本框
的效果图如下:
2.在Inspector窗口编辑Edit1中字体和相关格式。
的效果图如下:
添加其余按钮,效果如下:
Step2.修饰(填充代码片段)
为Edit1添加单击清空效果:
procedure TForm1.Edit1Change(Sender: TObject);
begin
Edit1.Text:='';
end;
为个位button添加将计算所得个位显示在效果如下:
var
temp:Integer;
begin
temp:=StrToInt(edit1.Text);
label1.Caption:=IntToStr(temp Mod 10);
end;
十位:
var
temp:Integer;
begin
temp:=StrToInt(edit1.Text);
label2.Caption:=IntToStr(temp Div 10 Mod 10);
end;
百位:
var
temp:Integer;
begin
temp:=StrToInt(edit1.Text);
label3.Caption:=IntToStr(temp Div 100 Mod 10);
千位:
var
temp:Integer;
begin
temp:=StrToInt(edit1.Text);
label4.Caption:=IntToStr(temp Div 1000);
end;
Step3.运行测试
实现效果图如下: