简单问题，急，在线等待！！！

Question

1、Ord(Str[i])2、TmpChar:=Str[i];3、if Ord(Str[i])>126 then //Str中包含汉字

Answer 1

1. 如何取字符串中指定位置的ASCII码值？
  str2 := IntToStr(Ord('A'))
2. 如何将 String 中的某个指定位置的字符存在 Char 类型的变量中。
  char1 := edit1.Text[4]
3. 最终问题是如何判断 string 中的汉字？
  str1 := '问';
  if Ord(str1[1])>127 then
    str1汉字

Answer 2

1: Ord(S[i]);
2:Str:=Copy(S,i,j);
3:IF ord(s[i])>127 Then 
....