简单的问题！！！

[ttyp]

VAR
A：ARRAY[1。。100] OF CHAR；
T：TEDIT；

怎样用最简单的办法把文本框T中的内容放到A中去呢？

[ttyp]

明白，回去试试

[ttyp]

to Crob(我干嘛这么帅):还是不行啊，出错
Incompatible types 'array' and Pchar;
怎么办啊？

[franklei]

for i:=0 to Length(t.text)-1 do
a[i]:=t.text[i];

[lizhenjia]

var
ss:array[0..100] of char;
begin
strpcopy(ss,edit1.text);
showmessage(ss);
现在一定好使!
错误原因:
A：ARRAY[1。。100] OF CHAR；
数组A的下限应是0!如下:
A：ARRAY[0。。100] OF CHAR；

[Crob]

StrPCopy(A, T.Text);

[Crob]

当然TEDIT中的字符串长度不能超过100

[ttyp]

to franklei(雷阿):我开始就是用这种方法，但觉得太麻烦，因为有几个数组要赋值，有没有简单的
to lizhenjia():我开始也是从0开始定义的，但这样定义时，从文件中读取内容时，字符窜的第一个字符显不出来，因为A[0]是存放字符窜长度的

[ttyp]

up

[herro123]

用StrPCopy()没问题呀，只有Array是从0开始，他才被认为是一个PChar，我试过没问题，不会出现第一个字符不显示的问题。单布执行看看

[skt985]

31533关注！ ：）