如何将文本框中的字符存入Char类型变量中?

Question

如何将文本框edit1中的字符存入Char类型变量name:array [0..15] of char中?
我使用name:=edit1.text，出现Incompatible types: 'Array' and 'TCaption'
的错误提示！

Answer 1

Array和TCaption不能直接转型，需要一个一个字符处理

Answer 2

致debussy(debussy)：怎么样一个一个字符处理？可以说得详细点吗？

Answer 3

for i:0 to 15 do name[1]:=copy(edit1.text,1,i+1);

Answer 4

var
 tmpStr:string;
 CharArr:array[0..15] of char;
 i:integer;
begin
 tmpStr:=Edit1.Text; //临时变量
 if Length(tmpStr)<Length(CharArr) then //防止溢出
  for i:=1 to Length(tmpStr) do  //循环赋值
   CharArr[i-1]:=tmpStr[i]; //数组下标从0开始，字符串下标从1开始
 //Edit2.Text:=CharArr[0];  //这句可要可不要，检查赋值是否正确
end;