如何将EDIT1控件中的TEXT赋值给DATA1这样的数组呢?

Question

方法1：
var
  Data: Array[0..255] of string;方法2:
var 
  Data1: array[0..255] of char;for i := 1 to Length(Edit1.Text) do
  Data[i] := Edit1.Text[i];在Delphi编程中，较少使用字符数组，而以string类型直接代替，且使用很方便。哎？你怎么是VB论坛的呀！？

Answer 1

赋值方法:
var
  Data1: array[0..255] of char;//定义边界的字符数组
--------------------------------------------------------
var
  i:integer;
begin
  For i:=1 to Length(Edit1.Text) do
  begin
      Data[i]:=Copy(Edit1.Text,i,1);
  end;
end;楼上的 Data: Array[0..255] of string;//为定长的字符串数组,
Data1: array[0..255] of char 的使用频度不大,
Data: Array of string//变长数组,还是挺常用的