文章分类 - Delphi

Delphi学习

摘要：1.获取系统目录procedure TForm1.btn1Click(Sender: TObject);var adr:array[0..MAX_PATH] of Char;begin GetSystemDirectory(adr,MAX_PATH); ShowMessage(adr);end;2.获取windows目录procedure TForm1.btn1Click(Sender: TObject);var adr:array[0..MAX_PATH] of Char;begin GetWindowsDirectory(adr,MAX_PATH); ShowMessage(ad... 阅读全文

posted @ 2013-01-24 16:16 kiny 阅读(603) 评论(0) 推荐(0)

Delphi7遍历枚举，子界

摘要：Delphi2009或者其他的语言说道遍历不是for..in就是直接foreach，Delphi7如何遍历呢？一、遍历枚举 1 //需要引用TpyInfo单元 2 Type 3 TImageType = (jpg,gif,png,bmp,tif,psd); 4 5 var 6 image:TImageType; 7 i:Integer; 8 begin 9 i := 0;10 for image:= Low(TImageType) to High(TImageType) do11 begin12 TpyInfo.GetEnumN... 阅读全文

posted @ 2012-09-08 14:18 kiny 阅读(1010) 评论(0) 推荐(0)