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

[hanutao]

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

[radandgreensky]

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

[hanutao]

编译出错

[PrgmLover]

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;

[gx]

对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;