第一次应工作需呀，接触这个语言，今晚在自己的电脑搭建好环境，写的第一个超简单的Delphi小程序！
var
temp:Integer; //求个位数
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
temp := StrToInt(Edit1.Text);
Label1.Caption := IntToStr(temp Mod );
end; //十位数
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
temp := StrToInt(Edit1.Text);
Label2.Caption := IntToStr(temp Mod Div );
end; procedure TForm1.BitBtn3Click(Sender: TObject);
begin
temp := StrToInt(Edit1.Text);
Label3.Caption := IntToStr(temp Mod Div );
end; procedure TForm1.BitBtn4Click(Sender: TObject);
begin
temp := StrToInt(Edit1.Text);
Label4.Caption := IntToStr(temp Mod Div );
end;