31
2012
12

解决TRichViewEdit乱码问题,选中半个汉字问题

TRichViewEdit1.8版本测试通过

TRichViewEdit v14版本测试通过

26
2012
12

delphi删除目录及子目录及所有目录下的文件

uses shellapi;

DelDirectory程序:

25
2012
12

Delphi 取得桌面文件夹的路径和取得我的文档的路径

Uses Windows,Registry;


function GetShellFolders(strDir: string): string;
const
  regPath = '\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders';
var
  Reg: TRegistry;
  strFolders: string;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CURRENT_USER;
    if Reg.OpenKey(regPath, false) then begin
      strFolders := Reg.ReadString(strDir);
    end;
  finally
    Reg.Free;
  end;
  result := strFolders;
end;
     
{获取桌面}
     
function GetDeskeptPath: string;
begin
  Result := GetShellFolders('Desktop'); //是取得桌面文件夹的路径
end;
     
{获取我的文档}
     
function GetMyDoumentpath: string;
begin
  Result := GetShellFolders('Personal'); //我的文档
end;


20
2012
12

delphi Example code : Extract all of the parts of a full file name

function ExtractFileName ( const FullFileName : string ) : string;

18
2012
12

Delphi 快捷键大全

在过程、函数、事件内部, SHIFT+CTRL+向上的方向键 可跳跃到相应的过程、函数、事件的定义.相反,在过程、函数、事件的定义处,SHIFT+CTRL+向下的方向键 可跳跃到具体过程、函数、事件内部
CTRL+ SHIFT + C:编写申明或者补上函数.
如:
procedure TT.A(AA: string); //函数申明
安下:CTRL+ SHIFT + C后,会写上
procedure TT.A(AA: string);
begin
end;

18
2012
12

delphi 获取临时文件夹路径

//声明:  
GetTempPath(  
  nBufferLength: DWORD; {缓冲区大小} 
  lpBuffer: PChar       {缓冲区} 
): DWORD;               {返回实际长度}
//举例:  
var 
  arr: array[0..MAX_PATH] of Char;  
  num: DWORD;  
begin 
  num := GetTempPath(MAX_PATH, arr);  
  ShowMessage(arr);           {C:\DOCUME~1\wy\LOCALS~1\Temp\} 
  ShowMessage(IntToStr(num)); {29} 
end;


18
2012
12

WebBrowser组件的execWB方法——Delphi控制浏览器组件

WebBrowser组件的execWB方法


1. <object id="WebBrowser" width=0 height=0 classid="CLSID:8856F961-340A-11D0-A96B-00C04FD705A2"></object>


2. 调用方法:

WebBrowser.ExecWB (nCmdID, nCmdExecOpt, [pvaIn], [pvaOut])

18
2012
12

警惕!堪比砒霜的14种食物 你肯定吃过

  许多食物正常时是美味营养的好食品,但一旦不新鲜、发芽,或是采用非常规手段催熟后,就会出现不利身体健康的毒素,有一些甚至会危及到生命。孩子比成人的抵抗力更弱,在制作孩子的食物时,更要注意不要让这些食材上了餐桌!

  一、青西红柿

  青西红柿含有毒性物质、叫龙葵素,食用这种还未成熟的青色西红柿,口腔有苦涩感,吃后可出现恶心、呕吐等中毒症状,生吃危险性更大。

……

14
2012
12

DELPHI TXMLDocument读取XML出现乱码的问题

XML文件

<?xml version="1.0" encoding="utf-8"?>

.......

13
2012
12

张集镇镇村布局规划文本

第一章  总  则

1.1规划目的

贯彻落实科学发展观,引导农民集中居住、工业向镇以上工业片区集中,促进村庄适度集聚和土地等资源节约利用,促进农村基础设施和公共设施集约配置,促进整合农业生产和生态空间,促进城市化加快推进。