六十五度 - 博客园

wamp修改站点路径，php服务器修改路径

摘要：一、修改apache目录下载好WampServer后，它默认网站根目录是:“D:/wamp/www”(示例若不同点击右下角的wampserver有个www目录即默认网站根目录) 打个比方，我现在要把网站根目录改为“E:/study” 1.打开 D:\wamp\bin\apache\apache2 阅读全文

posted @ 2023-12-07 11:40 六十五度阅读(137) 评论(0) 推荐(0) 编辑

计算文件大小

摘要： function GetFileSize(const FileName : string): DWORD; var f : integer; begin f := FileOpen(FileName, fmOpenRead); try Result := Windows.GetFileSize(f, 阅读全文

posted @ 2023-04-21 09:20 六十五度阅读(91) 评论(0) 推荐(0) 编辑

Delphi 获得文件大小的方法

摘要： Delphi 获得文件大小的方法大概有这些： FileSizeByName（需要引用IdGlobal单元，XE版本已取消） GetFileSize （use Windows ，仅支持windows） FileSize（不能获得正在使用的文件大小） FileSeek TFileStream.Siz 阅读全文

posted @ 2023-04-19 20:49 六十五度阅读(317) 评论(0) 推荐(0) 编辑

delphi 播放GIF动画

摘要： use GIFImg procedure TForm1.Button1Click(Sender: TObject); var pic_path:string; begin pic_path := ExtractFilePath(ParamStr(0)) + 'img\gif\loading.gif' 阅读全文

posted @ 2023-04-13 22:16 六十五度阅读(121) 评论(0) 推荐(0) 编辑

将TDateTime值分解为小时、分钟、秒和毫秒，以及计算时间差

摘要：将时间日期分解 procedure TForm1.Button1Click(Sender: TObject); var Present: TDateTime; Year, Month, Day, Hour, Min, Sec, MSec: Word; begin Present:= Now; Sys 阅读全文

posted @ 2023-04-11 19:54 六十五度阅读(144) 评论(0) 推荐(0) 编辑

文件拖放

摘要： Use shellapi; public { Public declarations } procedure TFfile(var Msg:TMessage);message WM_DROPFILES; 单文件拖拽到某个控件上： public { Public declarations } proc 阅读全文

posted @ 2023-04-08 12:16 六十五度阅读(26) 评论(0) 推荐(0) 编辑

delphi 资源文件管理 Resources and Images

摘要： 1、把PNG图片放到项目中； 2、点击主菜单“Project”→“ Resources and Images”，弹出下面的对话框它会自动识别项目中的图片、音频等文件自动添加进来，如果没有识别出来或者是自定义文件类型的话，就点击【Add】按钮手动添加，然后选择合适的资源类型ResourceTyp 阅读全文

posted @ 2023-04-08 12:10 六十五度阅读(206) 评论(0) 推荐(0) 编辑

DBGridEh 表格内容导出为 Excel 文件

摘要： uses DBGridEhImpExp; procedure TForm1.Button1Click(Sender: TObject); var Fn: string; begin //导出汇总结果为 xls, 需要 uses DBGridEhImpExp Fn := 'D:\Data\abc.xl 阅读全文

posted @ 2023-04-07 21:16 六十五度阅读(95) 评论(0) 推荐(0) 编辑

Delphi Combobox 数据库取值

摘要： combobox1.items.clear; adotable1.open; adotable1.first; with not adotable1.eof do begin combobox1.items.addobject(Fieldbyname('name').asstring,TObject 阅读全文

posted @ 2023-04-04 21:21 六十五度阅读(34) 评论(0) 推荐(0) 编辑

Edit边框成为下划线

摘要：设置它的几个属性：BevelEdges |_ beLeft = False; |_ beTop = False; |_ beRight = False; |_ beBottom=True; //就是下面那根横线了BevelInner=bvNone;BevelKind =bkSoft;BevelOut 阅读全文

posted @ 2023-04-04 16:56 六十五度阅读(28) 评论(0) 推荐(0) 编辑

----我是谁我在哪----