比较大小的问题

Question

怎样比较两个字符串的大小？如‘g100’与'p101'。望高手不吝赐教！

Answer 1

function StrComp(const Str1, Str2 : PChar): Integer;
Return value Condition<0          Str1< Str2
=0          Str1= Str2
>0          Str1 > Str2例子：
procedure TForm1.Button1Click(Sender: TObject);
begin
 if StrComp(PChar(Edit1.Text),Pchar(Edit2.Text))<0 then
  ShowMessage('Edit1<Edit2')
 else if StrComp(PChar(Edit1.Text),Pchar(Edit2.Text))=0 then
  ShowMessage('Edit1=Edit2')
 else ShowMessage('Edit1>Edit2');
end;

Answer 2

strtoint( copy('g100',2,3) ) < strtoint( copy('p101',2,3) )