EDIT1.TEXT从用户接受的内容如何放进ARR

Question

EDIT1.TEXT从用户接受的内容如何放进ARR：ARRARY[0..8] OF CHAR
定义的数组里
ARR：={0XDF，.....}，除外。

Answer 1

arr:=pchar(edit1.text);（注意要保证数组够大）

Answer 2

procedure TForm1.Button2Click(Sender: TObject);
var
  ARR:array[0..8] OF CHAR;
  i:Integer;
begin
   for i:=0 to Length(Edit1.text)-1 do
  begin
    if i>7 then Break;
    ARR[i]:= Edit1.text[i];
  end;
end;

Answer 3

对PrgmLover的代码略作改动，也许会看的更明白一些。procedure TForm1.BitBtn2Click(Sender: TObject);
var
  ARR:array[0..8] OF CHAR;
  i:Integer;
begin
  for i:=0 to Length(Edit1.text)-1 do
  begin
    if i>8 then Break;
    ARR[i]:= Edit1.text[i];
  end;  Memo1.Clear;
  for i:=0 to 8 do
    Memo1.Lines.Add(ARR[i]);
end;