文档章节

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
深圳
程序员

暂无文章

CentOS7防火墙firewalld操作

firewalld Linux上新用的防火墙软件,跟iptables差不多的工具。 firewall-cmd 是 firewalld 的字符界面管理工具,firewalld是CentOS7的一大特性,最大的好处有两个:支持动态更新,不用重启服...

dingdayu
今天
1
0
关于组件化的最初步

一个工程可能会有多个版本,有国际版、国内版、还有针对各种不同的渠道化的打包版本、这个属于我们日常经常见到的打包差异化版本需求。 而对于工程的开发,比如以前的公司,分成了有三大块业...

DannyCoder
今天
2
0
Spring的Resttemplate发送带header的post请求

private HttpHeaders getJsonHeader() { HttpHeaders headers = new HttpHeaders(); MediaType type = MediaType.parseMediaType("application/json; charset=UTF-8"); ......

qiang123
昨天
3
0
Spring Cloud Gateway 之 Only one connection receive subscriber allowed

都说Spring Cloud Gateway好,我也来试试,可是配置了总是报下面这个错误: java.lang.IllegalStateException: Only one connection receive subscriber allowed. 困扰了我几天的问题,原来...

ThinkGem
昨天
27
0
学习设计模式——观察者模式

1. 认识观察者模式 1. 定义:定义对象之间一种一对多的依赖关系,当一个对象状态发生变化时,依赖该对象的其他对象都会得到通知并进行相应的变化。 2. 组织结构: Subject:目标对象类,会被...

江左煤郎
昨天
4
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部