文档章节

SysUtils.StrComp、SysUtils.StrIComp

涂孟超
 涂孟超
发布于 2014/09/26 15:38
字数 176
阅读 8
收藏 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
深圳
程序员

暂无文章

angular指令监听ng-repeat渲染完成后执行自定义事件方法

今天工作中遇到需要用到ng-repeat遍历渲染完后执行某个操作,angular本身并没有提供监听ng-repeat渲染完成的指令,所以需要自己创建自定义指令。 在ng-repeat模板实例内部会暴露出一些特殊属...

孟飞阳
43分钟前
1
0
URLEncoder和URLDecoder

public static void main(String[] args) { String str1 = "https://test1-life.pingan.com/ilifecore/productMall/loading.html?productId=8000000241&channelCode=XCX00001&productCode=00......

鬼才王
52分钟前
2
0
对象及变量的并发访问-第一篇

方法内部的变量为线程安全变量 “非线程安全”问题存在于“共享变量”中,如果是方法内部的私有变量,则不存在“非线程安全”问题,所得结果也就是“线程安全”的。 package chaprer3;/**...

简心
53分钟前
1
0
程序媛眼中的程序猿原来是这样子的!

一直都想写一篇关于描述程序员的文章,但是一直没能开头,一来因为文笔不好,更主要的原因是貌似对程序员既熟悉又不熟悉,很怕写出来的是以偏概全,给大家造成对程序员的既定印象,不过,管他...

Java小铺
今天
1
0
bean标签

声明:本栏目所使用的素材都是凯哥学堂VIP学员所写,学员有权匿名,对文章有最终解释权;凯哥学堂旨在促进VIP学员互相学习的基础上公开笔记。 bean标签 bean标签中的init-method属性,该属性...

凯哥学堂
今天
1
0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部