文档章节

SysUtils.StrComp、SysUtils.StrIComp

涂孟超
 涂孟超
发布于 2014/09/26 15:38
字数 176
阅读 9
收藏 0
StrComp 和 StrIComp 都是对比 PChar 字串的大小的函数, 只是后者不区分大小写.
unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

//测试 1:
procedure TForm1.Button1Click(Sender: TObject);
var
  n1,n2,n3,n4: Integer;
begin
  n1 := StrComp('A', 'C');
  n2 := StrComp('C', 'A');
  n3 := StrComp('A', 'A');
  n4 := StrComp('a', 'A');
  ShowMessageFmt('%d, %d, %d, %d', [n1, n2, n3, n4]); {-2, 2, 0, 32}
end;

//测试 2:
procedure TForm1.Button2Click(Sender: TObject);
var
  p1,p2: PChar;
  n1,n2,n3: Integer;
begin
  p1 := 'abc';
  p2 := 'bcd';
  n1 := StrComp(p1, p2);

  p1 := 'Abc';
  p2 := 'bcd';
  n2 := StrComp(p1, p2);

  p1 := '万一';
  p2 := 'WanYi';
  n3 := StrComp(p1, p2);

  ShowMessageFmt('%d, %d, %d', [n1, n2, n3]); {-1, -33, 0, 118}
end;

end.

 
 
 
 
 

 

 

  
SysUtils 单元下的公用函数目录

本文转载自:http://www.cnblogs.com/del/archive/2008/05/12/1193655.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问

暂无文章

jquery通过id显示隐藏

var $div3 = $('#div3'); 显示 $div3.show(); 隐藏 $div3.hide();

yan_liu
今天
3
0
《乱世佳人》读书笔记及相关感悟3900字

《乱世佳人》读书笔记及相关感悟3900字: 之前一直听「荔枝」,后来不知怎的转向了「喜马拉雅」,一听就是三年。上班的时候听房产,买房了以后听装修,兴之所至时听旅行,分手后听亲密关系,...

原创小博客
今天
3
0
大数据教程(9.6)map端join实现

上一篇文章讲了mapreduce配合实现join,本节博主将讲述在map端的join实现; 一、需求 实现两个“表”的join操作,其中一个表数据量小,一个表很大,这种场景在实际中非常常见,比如“订单日志...

em_aaron
今天
3
0
cookie与session详解

session与cookie是什么? session与cookie属于一种会话控制技术.常用在身份识别,登录验证,数据传输等.举个例子,就像我们去超市买东西结账的时候,我们要拿出我们的会员卡才会获取优惠.这时...

士兵7
今天
3
0
十万个为什么之为什么大家都说dubbo

Dubbo是什么? 使用背景 dubbo为什么这么流行, 为什么大家都这么喜欢用dubbo; 通过了解分布式开发了解到, 为适应访问量暴增,业务拆分后, 子应用部署在多台服务器上,而多台服务器通过可以通过d...

尾生
今天
4
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部