如何不区分大小写比较两个字符串？

[shiningstar]

rt.
3x.

[cooling]

你先把他们转化成都是大写的或都是小写的，再比较不就可以了啊。

[不怕输]

我的方法是，将两个字符串都变成大写或小写，然后再比较。（使用的函数为LowerCase,UpperCase)

[dancemaple]

procedure TForm1.Button1Click(Sender: TObject);
var
s1, s2: string;
begin
s1 := 'adfad';
s2 := 'ASDFA';
if (UpperCase(s1) > UpperCase(s2)) then
ShowMessage('>')
else
ShowMessage('<=');
end;

[chechy]

StrIComp
uses SysUtils;
procedure TForm1.Button1Click(Sender: TObject);

var
Msg: string;
CompResult: Integer;
begin
Msg := Edit1.Text;
CompResult := StrIComp(PChar(Edit1.Text), PChar(Edit2.Text));
if CompResult < 0 then
Msg := Msg + ' is less than '
else if CompResult > 0 then
Msg := Msg + ' is greater than '
else
Msg := Msg + ' is equal to '
Msg := Msg + Edit2.Text;
ShowMessage(Msg);
end;

[shiningstar]

感谢，我是Delphi新手，刚从C++转过来的。有些东西还不太熟悉，希望大侠们多多指点。