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

[zhongshan]

[ZhuJunfeng]

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

[thermometer]

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

[kuangning]

取得第n个字符
s:= edit1.text ;

if length(s)<n then
getchar:= '' else
getchar := s[n];

[thermometer]

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

[sanjianxia]

采用pos()可以搞定.

[runner_lh]

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