SysUtils.StrComp、SysUtils.StrIComp
1508 ワード
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ユニットの下にある共通関数ディレクトリ