字符串比取不同部分
字符串相比怎得其中不相同的部分字符串
如'43353030373333303030344231' '43353030373333303030354141'
要怎分得到'44231'和'54141'以便后行大小的比

大家指急在等



[解决办法]
var
i,j,th1,th2: Integer;
tr1,tr2 :string;
newstr :string;
begin
th1:=Length('43353030373333303030344231');
th2:=Length('43353030373333303030354141');
for i :=1 to th1 do
begin
tr1:=copy('43353030373333303030344231',i,1);
tr2:=copy('43353030373333303030354141',i,1);
if tr1=tr2 then
newstr:=newstr+'A'//相同的用A表示
else
newstr:=newstr+ tr1;／／把不同的直接
end;

end;
结果　：newstr=AAAAAAA........AA4A23A