汉字如何比较？

Question

你要得到的结果是什么？
Delphi里有一个字符串比较函数  function CompareStr(constS1,S2:String):Integer;

Answer 1

 还有一个
function CompareText(constS1,S2:String):Integer;
功能一样，不过  CompareText不区分大小写。功能：比较S1和S2，如果S1>S2返回一个大于0的整数，如果S1=S2，返回0，如果S1<S2返回一个小于0的整数不过这两个函数可能无法满足你的需要，你再详细地说说你比较这两个字符串希望返回什么？
是不是遇到第一个不相同的字符函数就返回了？
这样我可以给你写个函数

Answer 2

//给你写一个函数，function ComStr(S1,S2:String):Bool;
var
   long1,long2,i,j:integer;   
begin
    long1:=Length(s1);
    long2:=Length(s2);
    if long1>long2 then
       j:=long1
    else
      j:=long2;
   for  i:=1 to j do
      begin
         if s1[i]<>s2[i] then
         Result:=False;
      end;
end;//参数S1和S2是你要比较的两个字符串，逐一比较，当第一次遇到两个不相同的字符就返回了。如果两个字符串不相同，返回False

Answer 3

楼上的兄弟我想得出的是String1和string2中有几个字符是相同，几个不相同。按照你的方法如果两个汉字的第一个字节都相同，但是第二个字节不相同，那么比较就会出错

Answer 4

这个问题在delphi里很好解决的。使用widestring！widestring里的每一个元素都是一个串---一个汉字其实也是一个串，所以，呵呵，方便得很。