1
Delphi技术
日志阅读：2604
日志评论：0

汇编级超快字符串替换函数

该日志由 samool 发表于 2007-10-23 3:19 PM

 用这个函数进行字符串替换操作，比Delphi自带的ReplaceString要快N倍，效率一流，非常快，不愧为汇编级函数操作，哈哈.

下载函数单元文件：[attach=1619]

» 阅读该日志全文...

该日志标签: 汇编, 函数, 字符, 替换

2
Delphi技术
日志阅读：1860
日志评论：0

Delphi字符统计和汉字统计

该日志由 samool 发表于 2007-10-21 10:31 PM

delphi代码
  1. procedure TForm1.btn1Click(Sender: TObject);   
  2. var i,e,c:integer;   
  3.     s:string;   
  4. begin    
  5.     s:=mmo1.Text ;   
  6.     e:=0;c:=0;   
  7.     for i:=1 to length(s) do  
  8.     begin  
  9.       if(ord(s[i])>=33)and(ord(s[i])<=126) then  
  10.       begin  
  11.       inc(e);   
  12.       Label1.Caption:=inttostr(e);  //字符个数  
  13.       end  
  14.       else  if (ord(s[i])>=127) then  
  15.       begin  
  16.       inc(c);   
  17.       Label2.Caption:=inttostr(c div 2);  //汉字个数 
  18.       end;   
  19.     end;   
  20. end;  

该日志标签: 汉字, 字符, 统计

3
Delphi技术
日志阅读：8149
日志评论：0

delphi中常用的字符处理函数

该日志由 samool 发表于 2006-05-08 10:44 AM

全是常用的字符处理函数，收集起来，以备后用。：）

» 阅读该日志全文...

该日志标签: delphi, 字符, 函数