Procedure GetASCII(_InStr:String);
Var
I : Word;
Begin
I:=1;
While (I<=LengTh(_InStr)) Do
Begin
If (Byte(_InStr)<$A0) Then
ShowMessage('Char "'+_InStr+'", 它的ASCii是: '+IntToStr(Byte(_InStr)))
Else
Begin
ShowMessage('Char '+Copy(_InStr,I,2)+', 它是个汉字啊！');
Inc(I);
End;
Inc(I);
End;
End;
