红鱼儿

摘要： 同事写了这样的一个函数： Function TForm11.Get(s:string):string; var i:Integer; begin for i:=0 to 9 do begin result:=result+i.tostring; end; result:=s+result; end; 阅读全文

摘要： 我想为一个按钮定制一个日期对话框，即用户点击按钮就弹出一个日期对话框，该如何实现呢？ 首先，引用单元FMX.Pickers, FMX.Platform，然后声明一个日期对话框： FDateTimePicker: TCustomDateTimePicker; 然后，在Create事件中建立这个对话框： 阅读全文