可能是难题哦:两个等长的字符串,既有汉字也有数字，如何比较这两个字符串中字符不同的个数？（汉字算一个字符）

Question

敬请帮忙

Answer 1

function GetStrLength(const S: string): integer;
begin
Result:=Length(WideString(S));
end; 

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
 s1, s2, s3: WideString;
 i: integer;
begin
 s1:='我是一个好人啊lilor';
 s2:='我是一个坏人吗lilor';
 for i:=1 to length(s1) do
 begin
   if (pos(s1[i],s3)=0)and(pos(s1[i],s2)=0) then s3:=s3+s1[i];
   if (pos(s1[2],s3)=0)and(pos(s2[i],s1)=0) then s3:=s3+s2[i];
 end;
 ShowMessage(Format('不同的字符有%d, 它们是(%s)', [length(s3), s3]));
end;运行结果
---------------------------
test
---------------------------
不同的字符有4, 它们是(好坏啊吗)
---------------------------
OK   
---------------------------

Answer 3

这句if (pos(s1[2],s3)=0)and(pos(s2[i],s1)=0) then s3:=s3+s2[i];写错了
应该是if (pos(s2[i],s3)=0)and(pos(s2[i],s1)=0) then s3:=s3+s2[i];

Answer 4

var 
  str1,str2: String;
  StrLenth,i,Count: Integer;
begin
  str1 :='fdfasdfdasf';
  str2 :='345wgsdgreg';
  StrLenth := Length(str1);
  i := StrLenth;
  j := i;
  for i := 1 to StrLenth do
  begin
    for j := 1 to StrLenth do
    begin
      If Copy(str1,i,1) = Copy(str2,j,1) then Break
      else If j = StrLenth then Count := Count +1;  
    end;
  end;
end;

Answer 5

var WStr:WideString;
    AStr:String;
begin
  AStr = "123456中国文字!"
  WStr = WideString(AStr);
  Showmessage(format("按英文计算长度 %d",[length(AStr)]));
  Showmessage(format("按混合计算长度 %d",[length(WStr)]));
  Showmessage(format("取中文数 %d",[length(WStr)-Length(AStr)]));
end;
还有问题吗？

Answer 6

比较的时候用WideString 类型即可。

Answer 7

var
  s1,s2,s3:string;
  i:integer;
begin
  s1 := edit1.Text; s2 := edit2.Text; s3 := '';
  if length(s1) <> length(s2) then
    showmessage('两个串不等长！')
  else
  begin
    for i := 1 to length(s1) do
    begin
      if pos(s2[i],s1)=0 then s3 := s3 + s2[i];
      if pos(s1[i],s2)=0 then s3 := s3 + s1[i];
    end;
    edit3.Text := '共有'+inttostr(length(s3))+'个字符不同，他们是:'+s3;
  end;
end;

Answer 8

类型错了，应该用widestring