摘要: Delphi XE 时间和时间戳互转换 uses System.DateUtils; function TForm1.Gettamptime(vlen: Integer): string; var ss: string; begin if vlen = 13 then begin ss := Dat 阅读全文
posted @ 2024-04-30 11:34 九日之阳 阅读(80) 评论(0) 推荐(0) 编辑
摘要: 有时候需要客户端进行服务器连接配置,自己写配置窗体,总不如直接使用系统提供的使用方便快捷 例子一: //此例子有个坏处不管用户点了确定还是取消,均返回值 procedure TForm1.Button1Click(Sender: TObject); var connStr:string; begin 阅读全文
posted @ 2024-04-30 10:10 九日之阳 阅读(7) 评论(0) 推荐(0) 编辑