输入判断的问题！请帮帮忙！谢谢！

Question

我想判断我在EDIT中输入的第二个字符是不是字母，如果是就在整个文本的前头加上‘0’，该如何去做？
还有如何将一个只有一个字符STRING（不是char）转换成ANSI值。（或者说能否将string转换为char）

Answer 1

1.
var 
  str: String;  
  I, Code: Integer;
begin  
  str := Edit1.Text;
  Val(str[2], I, Code);
  if Code <> 0 then
    ....
  else ...;
end;2. PChar(String);

Answer 2

在Edit1的OnExit事件中
var s:string;
begin
  s:=Edit1.Text;
  if s[2] in ['a'..'z','A'..'Z'] then
    Edit1.Text:='0'+s;
end;将string转换为char的方法上面有了，就是s[1],s[2]...