摘要:
添加项目 procedure TForm1.Button1Click(Sender: TObject);beginwith listview1.Items dobeginAdd.Caption:='1111111';Add.Caption:='2111111';Add.Caption:='3111111';end;end; ... 阅读全文
摘要:
//获取一个文件夹下的所有文件
//不包括文件夹里面的文件
//ListBox1.Items:=searchfile('Z:\'); //注意,path后面要有'\'; functionSearchfile(path:string):TStringList; var SearchRec:TSearchRec; found:integer; begin Result:=T... 阅读全文
摘要:
Delphi连接MySQL真麻烦,研究了一天,从网上找了无数文章,下载了无数插件都没解决。最后返璞归真,老老实实用ADO来连接,发现也不是很顺利,但最终还是连接成功了。多少有点心得:ADO各个组件的作用和联系必须清楚,否则设置起来很容易混乱。总结一下用ADO连接MySQL5.1要点:1、需要下载MySQL的ODBC支持,我用的官网mysql-connector-odbc-5.1.7-win32.m... 阅读全文
摘要:
TransparentColor:=true; TransparentColorValue:=clFuchsia; Color:= TransparentColorValue; BorderStyle:=bsNone;delphi 窗体透明http://hi.baidu.com/duduppp/item/f347df3a16dbb9607c034bd5来自为知笔记(Wiz... 阅读全文
摘要:
unit untCpuInfo;interface{ 获取 CPU 制造商 }function GetCpuFactory: String;{ 获取 CPU 家族系统 }function GetCpuFamily: Cardinal;{ 获取 CPU 型号 }function GetCpuModel: Cardinal;{ 获取 CPU 步进 }function GetCpuStepping: C... 阅读全文
摘要:
//Canvas.TextOut文字保存为图片//Delphi开发案例精选,使用TextOut在画布上画图procedure TForm1.Button1Click(Sender: TObject);varMy_Image:Timage;i:integer;begintryMy_Image:=Timage.Create(nil);My_Image.Width:=me... 阅读全文
摘要:
uses Jpeg;function BMPtoJPG(var BMPpic, JPGpic: string): boolean;var Bitmap: TBitmap; JpegImg: TJpegImage;begin result := False; Bitmap := TBitmap.Create; try Bitmap.LoadFromFile(BMPpic); J... 阅读全文