摘要: procedure TForm1.Button1Click(Sender: TObject);begin if not FileExists(Edit1.Text) then//if not DirectoryExists(Edit1.Text) then 判断目录是否存在 try begin Cr 阅读全文
posted @ 2017-09-06 16:25 敲代码的小女孩 阅读(899) 评论(0) 推荐(0) 编辑
摘要: 一、Format函数的用法Format是一个很常用,却又似乎很烦的方法,本人试图对这个方法的帮助进行一些翻译,让它有一个完整的概貌,以供大家查询之用: 首先看它的声明:function Format(const Format: string; const Args: array of const): 阅读全文
posted @ 2017-09-06 16:23 敲代码的小女孩 阅读(392) 评论(0) 推荐(0) 编辑
摘要: 在windows原生应用程序开发中,经常伴随多线程的使用,多线程开发很简单,难点就是在于线程的同步,在Delphi中提供了VC中不具备的一个过程Synchronize,使用起来非常方便,解决了很多VC开发中碰到的常见问题,但是在看了很多Delphi代码后,发现很多人对于Synchronize的理解还 阅读全文
posted @ 2017-09-06 16:20 敲代码的小女孩 阅读(718) 评论(0) 推荐(0) 编辑
摘要: procedure OutPutDBGridToCSV(AGrd:TDBGrid; AQuery: TQuery);var i,ColNum: Integer; Title,Data,SaveName: String; ALst: TStringList;begin try ALst:=TStrin 阅读全文
posted @ 2017-09-06 16:19 敲代码的小女孩 阅读(669) 评论(0) 推荐(0) 编辑
摘要: read读取此属性的值write设置此属性的值delfault默认值dynamic表明该方法为动态的方法 关于property.在Delphi当中,往往将一个类的变量定义在private或者protected里面,这样外部是访问不到这些变量的。当有需要将某个或者某些变量暴露出来给外界访问,就在pul 阅读全文
posted @ 2017-09-06 16:18 敲代码的小女孩 阅读(1233) 评论(0) 推荐(0) 编辑
摘要: var sFile,sLine: TStrings; begin sFile := TStringList.Create; sFile.LoadFromFile('C:\a.csv'); sLine := TStringList.Create; sLine.CommaText := sFile[1] 阅读全文
posted @ 2017-09-06 16:12 敲代码的小女孩 阅读(1699) 评论(0) 推荐(0) 编辑
摘要: Delphi TStrings是一个抽象类,在实际开发中,是除了基本类型外,应用得最多的。 常规的用法大家都知道,现在来讨论它的一些高级的用法。 先把要讨论的几个属性列出来: 1、CommaText 2、Delimiter & DelimitedText 3、Names & values & val 阅读全文
posted @ 2017-09-06 16:05 敲代码的小女孩 阅读(1591) 评论(0) 推荐(0) 编辑
摘要: procedure TForm1.SpeedButton5Click(Sender: TObject);var Excel,WrkBook,WrkSheet:olevariant;Begin try Excel := CreateOleObject('Excel.Application'); exc 阅读全文
posted @ 2017-09-06 16:03 敲代码的小女孩 阅读(365) 评论(0) 推荐(0) 编辑
摘要: ComboBox1.Text;ComboBox1.Items.Strings[ComboBox1.ItemIndex];//ComboBox1.ItemIndex>=0的时候才能用 阅读全文
posted @ 2017-09-06 16:02 敲代码的小女孩 阅读(2451) 评论(0) 推荐(0) 编辑