随笔分类 - DELPHI常用用法
摘要：ExtractFileDrive ：返回完整文件名中的驱动器，如"C:" ExtractFilePath：返回完整文件名中的路径，最后带“/”，如"C:\test\"ExtractFileDir：返回完整文件名中的路径，最后不带“/” ,如"C:\test"ExtractFileName:返回完整文件名中的文件名称 (带扩展名)，如"mytest.d...
阅读全文
摘要：1 获得上级目录IncludeTrailingPathDelimiter(const S:String):String和IncludeTrailingBackslash是同样功能，不过根据delphi的帮助，我们现在应该使用IncludeTrailingPathDelimiter才对，前者只是为了向前兼容才保留的这个函数是将参数S提供的一个表示路径的末尾加上“\”符（如果是...
阅读全文
摘要：1 判断是否有键值（默认）var Reg: TRegistry;begin Reg := TRegistry.Create; Reg.RootKey := HKEY_LOCAL_MACHINE; Reg.OpenKey('SOFTWARE\RegisterFlags', False); if not Reg.ValueExists('Useid') then Reg.WriteInteger('U...
阅读全文
摘要：procedure TForm3.FormCreate(Sender: TObject); begin Self.Paint; end; function ByteToHex(Src: Byte): String; begin SetLength(Result, 2); asm MOV EDI, [Result] MOV EDI, [ED...
阅读全文
摘要：procedure TForm1.FormCreate(Sender: TObject); var i:integer; begin for i:=0 to ComponentCount-1 do if Components[i] is TEdit then (Components[i] as TEdit).OnKeyPress:=EditKeyPress; end; ...
阅读全文
摘要：DELPHI常见属性说明： ALIGN 设置组件对齐（同其父容器）方式 BORDERSTYLE 设置组件边框形状 CAPTION 设置组件标题 CTL3D 设置组件边框是否为3D模式，若BORDERSTYLE设置为BSNONE则此属性无效 COLOR 设定组件背景颜色 CURSOR 设定鼠标经过组件时光标所显示的形状 ENABLED 设定组件是否能使用，当设为FALSE时组件会呈灰色 FONT 设...
阅读全文
摘要：1 WebBrowser1.Width := TControl(WebBrowser1).Parent.ClientWidth + 3; WebBrowser1.Height := TControl(WebBrowser1).Parent.ClientHeight + 3; WebBrowser1.Left := -2; WebBrowser1.Top...
阅读全文
摘要：---- 大概大家还记得Delphi的范例程序中的那个浏览器的例子吧。在那个例子中，利用控件THttp的属性和方法制作了一个浏览器。该例子用于理解THttp控件的使用方法，确实不错。但很少有人会用它作为一个真正的浏览器，原因很简单，功能太有限了，不支持Frame，不支持Script脚本语言，不能以本地文件方式查看HTML文件等等。大部分用户在使用IE或Navigator；我们程序员也乐意使用现成...
阅读全文
摘要：//TStringList 常用方法与属性: var List: TStringList; i: Integer; begin List := TStringList.Create; List.Add('Strings1'); {添加} List.Add('Strings2'); List.Exchange(0,1); {置换} List.Insert(...
阅读全文
摘要：ChangeFileExt(ExtractFileName(Application.ExeName), '')
阅读全文
摘要：function GetNumSumFromStr(Str: string): Integer; function IsNumber(SoureChar: Char): Boolean; begin Result...
阅读全文
摘要：1 TClientDataSet.IndexFieldNames := '字段'
阅读全文
