字符串比对

procedure TForm1.Button1Click(Sender: TObject);

var  a,b:string;

begin

        a:='abcde123' ;

        b:='abcde123' ;

        if a=b then

          showmessage('字符串比对一致');

end;

__________________________________________________

procedure TForm3.Button1Click(Sender: TObject);

var  a,b:string;

begin

        a:='abcde123' ;

        b:='abcde123' ;

        if comparestr(a,b)=0 then

          showmessage('字符串比对一致');

end;