lazarus吧 关注：423贴子：687
- 3回复贴，共1页
procedure TForm1.Button1Click(Sender: TObject);
begin
Button1.Caption:=datetimetostr(now());
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Button2.Caption:=datetostr(date());
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
Button3.Caption:=timetostr(time());
end;
begin
Button1.Caption:=datetimetostr(now());
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Button2.Caption:=datetostr(date());
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
Button3.Caption:=timetostr(time());
end;
扫二维码下载贴吧客户端
下载贴吧APP
看高清直播、视频！
看高清直播、视频！
贴吧热议榜
- 1T1教练想决赛零封BLG2029050
- 2朝鲜正式宣布试射洲际导弹1966026
- 3曼联5-2大胜莱斯特城1432928
- 4GEN输T1疑似有外在因素1314495
- 5南昌工学院男子持刀杀人1007578
- 6WTA总决赛全胜奖金超3600万710400
- 7如何看待中东人称中国人秦腔穷650832
- 8湖人不敌骑士遭遇两连败528333
- 9江歌妈妈停播20天后复播452782
- 10康妮已加强为超强台风384468
