文档章节

《Delphi 算法与数据结构》学习与感悟[5]: 定位一个字符位置时, Pos 函数为什么不是最快的?

涂孟超
 涂孟超
发布于 2014/09/26 15:37
字数 284
阅读 5
收藏 0
如果 Pos 函数的第一个参数是 Char 而非 String, 那么编译器也会先把 Char 转换为 String;

从内存结构到管理机制, String 远比 Char 要复杂.

因此, 面对这种情况(要定位的是 Char) Pos 还有优化的余地; 优化后速度会提升 5 倍左右.

测试效果图:


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

//自定义的 Pos 函数
function MyPos(c: Char; const str: string): Integer;
var
  i: Integer;
begin
  Result := 0;
  for i := 1 to Length(str) do
    if c = str[i] then begin Result := i; Exit end;
end;

{对比测试}
procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
  c: Char;
  i: Integer;
  n: Cardinal;
begin
  s := 'abcdefghijklmnopqrstuvwxyz';
  Randomize;
  c := Chr(Random(26) + 97); {随机一个 a..z 的字符}

  {用 Pos 函数}
  n := GetTickCount;
  for i := 1 to 1000000 do Pos(c,s);
  n := GetTickCount - n;
  Text := IntToStr(n) + ' - ';

  {用自定义的 MyPos 函数}
  n := GetTickCount;
  for i := 1 to 1000000 do MyPos(c,s);
  n := GetTickCount - n;
  Text := Text + IntToStr(n);

  Button1.Caption := 'Pos 与 MyPos 速度测试';
end;

end.

 
 
 
 
 

 

 

  

本文转载自:http://www.cnblogs.com/del/archive/2008/03/18/1111340.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
好玩的2048小游戏,C语言写的代码分享给你了!

学习C语言/C++已经接近一个月了,在老师的带领下,我们已经学习了c语言数据的基本类型、变量的输入输出、进制转换、运算符和分支结构、循环结构、数组、指针、函数和字符串结构体等等,在老师...

小辰GG
2017/12/16
0
0
Delphi中使用汇编(关于POS函数的问题)

在delphi中使用汇编异常的简单,只用使用关键字asm ....end来引导就行了。 得到一个字符在字符串中的位置有很多方法,最简单的就是使用delphi自己的Pos函数 另外一个方法就是使用 循环查找字...

技术小美
2017/11/06
0
0
数据结构 第8讲 KMP算法

数据结构 第8讲 KMP算法 讲这个算法之前,我们首先了解几个概念: 串:又称字符串,是由零个或多个字符组成的有限序列。如S="abcdef" 子串:串中任意个连续的字符组成的子序列,称为该串的子...

rainchxy
2017/10/20
0
0
DAT (Double Array Trie) 多模式匹配算法

一、简介: 1.1、字典树trie: 字典树trie 搜索关键码的时间和关键码自身及其长度有关,最快是0(1),,即在第一层即可判断是否搜索到,最坏的情况是0(n), n为Trie树的层数。由于很多时候Trie树的...

famince
2014/04/15
0
0
Delphi、PChar和Char数组的比较

Delphi、PChar和Char数组的比较   string和Char数组都是一块内存, 其中存放连续的字符. string保存具体字符的内存对用户是透明的, 由Delphi管理它的分配, 复制和释放, 用户不能干预(其实也...

技术小甜
2017/11/08
0
0

没有更多内容

加载失败,请刷新页面

加载更多

小白带你认识netty(三)之NioEventLoop的线程(或者reactor线程)启动(一)

在第一章中,我们看关于NioEventLoopGroup的初始化,我们知道了NioEventLoopGroup对象中有一组EventLoop数组,并且数组中的每个EventLoop对象都对应一个线程FastThreadLocalThread,那么这个...

天空小小
今天
3
0
PHP动态扩展Redis模块

查看已有模块 [root@test-a ~]# /usr/local/php/bin/php -m[PHP Modules]bz2Core...zlib[Zend Modules] 下载包,解压,生成configure文件 [root@test-a ~]# cd /usr/local/src/[ro......

野雪球
今天
3
0
在Ignite中使用线性回归算法

在本系列前面的文章中,简单介绍了一下Ignite的机器学习网格,下面会趁热打铁,结合一些示例,深入介绍Ignite支持的一些机器学习算法。 如果要找合适的数据集,会发现可用的有很多,但是对于...

李玉珏
今天
5
0
Mybatis应用学习——简单使用示例

1. 传统JDBC程序中存在的问题 1. 一个简单的JDBC程序示例: public class JDBCDemo {public static void main(String[] args) {Connection con=null;PreparedStatement statemen...

江左煤郎
今天
4
0
使用JavaScript编写iOS应用业务逻辑

JSAUIKitCocoa使你可以使用JavaScript编写对性能要求不高但可能变动性很大的iOS应用的业务逻辑部分,View组件、需要多线程支持的Model等则直接使用原生对象。 编写方式与React Native相似,但...

neal01
今天
5
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部