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

Question

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

Answer 1

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

Answer 2

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;

Answer 3

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