请教高手关于Tedit的问题

Question

如何逐字读取Teidt里面的字符？就像pascal里面的read（）函数。

Answer 1

可以用midstr（a:string;b,c:integer）函数
改函数返回字符串a的b位置开始的c个字符的子串。
如：midstr(eidt1.text,1,1)

Answer 2

可以使用Copy函数处理Edit.Text属性。

Answer 3

怎么使用copy函数？copy函数是copy(str:string//copy源;strto:string//目标)，这样子吗?还有一问，我用delphi做控制台程序的时候，程序运行完成之后还来不及看结果就自动退出了，怎么才能让它运行完后停留一段时间？

Answer 4

var
  i : integer;
  s : string;
begin
  s := Edit1.Text;
  for i := 1 to Length(s) do
  begin
    s[i]......         //一个一个读
  end;
end;

Answer 5

var
  i : integer;
  s : string;
  t : array[]0..1] of string[1];
begin
  s := Edit1.Text;
  for i := 1 to Length(s) do
  begin
    s[i]......         //是不是可以t[i-1]:=s[i]???????????????
  end;
end;All right?

Answer 6

hch_45(んこん) 说的对；
---------
 t : array[]0..1] of string[1];//如果t[i]只有一个元素，可以改成t:array[0..1] of char;
-----------
还可以这样用
var
  s:array[0..1] of char;
begin
  s[1] :=Edit1.Text[1];
  showmessage(s[1])
end;

Answer 7

多谢，现在清楚了。---------------------------------------------
还有一问，我用delphi做控制台程序的时候，程序运行完成之后还来不及看结果就自动退出了，怎么才能让它运行完后停留一段时间？
---------------------------------------------这个问题拜托一并解答吧。

Answer 8

---------------------------------------------
还有一问，我用delphi做控制台程序的时候，程序运行完成之后还来不及看结果就自动退出了，怎么才能让它运行完后停留一段时间？
---------------------------------------------
如果你是在98的话:
1,在运行输入:Command,按确定
2,找到你的程序的目录(用CD命令),
3,输入你的程序名后,按Enter键如果你是在2000以上的话:
1,在运行输入:cmd,按确定
2,找到你的程序的目录(用CD命令),
3,输入你的程序名后,按Enter键