[Code=Delphi(Pascal)]
procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
i: integer;
begin
s:= '1你a好! A 2hello3 wORlD,please 结 帖 !!!';
for i:= 1 to length(s) do
if (ByteType(s[i],1) = mbSingleByte) then s[i]:= upcase(s[i]);
showmessage(s);
end;
[/Code]