var
Sign: array [1..7] of String = ('a3ac','a1a3','a3bf','a3bb','a3ba','a1af','a1b1');
function CharIsSign(Ch: TChnChar): Boolean;
var
i: integer;
begin
Result := False;
for i:=1 to 7 do
if Ch = Sign[i] then
begin
Result := True;
Exit;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
S: String;
T: String;
Chn: TChnChar;
i: integer;
begin
S :=' hottey,你好吗”?';
T := '';
i := 1;
while i <= Length(S) do
begin
if (Ord(S[i]) > 128) then
begin
Chn := LowerCase(IntToHex(Ord(S[i]), 2) + IntToHex(Ord(S[i+1]), 2));
if CharIsSign(Chn) then
begin
Inc(i, 2);
Continue;
end else
T := T + S[i];
end;
Inc(i);
end;
ShowMessage(T);
end;