const s1='地2點'; s2='4b王成'; var r:Integer; begin r:=CompareStr(s1,s2); if r<0 then showmessage('s1小於s2'); if r=0 then showmessage('相同'); if r>0 then showmessage('s1大於s2'); end;