在的DELPHI5中如何取文体框中的某个或任意一个字符。请各位高手帮助，多谢！！！

Question

var 
  str:string;
  ch:char;
const 
  i=某位字符
begin
  str:=edit1.text;
  ch:=str[i];
end;

Answer 1

var
  str:string;
  pos:integer;
begin
  str:='想要的字符串';
  pos:=pos(str,edit1.text);//返回str在edit1.text中的位置
  //下面就容易了吧^_^
end;

Answer 2

取得第n个字符
s:= edit1.text ;if length(s)<n then 
getchar:= '' else 
getchar := s[n]; 

Answer 3

var
  i:integer;
  str:string;
begin
  str:=edit1.text;
  //逐一取出edit1.text中的字符
  for i:=1 to length(str)do
    begin
      showmessage(str[i]);
    end;
end;

Answer 4

str ：array[1..10]of char;
p : ^char;
str:=edit1.text;
p:=@str;
然后对p  ＋ n
p^就是第n个字符了