Question

delphi怎么把一维数组赋值给memo delphi

怎么把一维数组赋值给memo ？？

for l := 0 to memo1.Lines.Count - 1 do
begin
b[l] := inttostr(a[l]);
memo2.Lines.Add(b[l]);
end;

怎么改？？

Answer 1

1、for i := 0 to 99 do name[i] := #0;
2、FillChar( name, SizeOf(name), 0 );

例如：var

 a:array of Integer;  //定义a为动态数组
 count,i:Integer;    
begin
 SetLength(a,10);    //给数组a确定大小
 for count:=0 to 9 do//给数组a循环赋值
 begin
   a[count]:=count;
 end;
 for i:=0 to Length(a)-1 do  //将a的数组循环添加到memo1中
 begin
   Memo1.Lines.Add(IntToStr(a[i])) ;
 end;
end;

补充：Delphi，是Windows平台下著名的快速应用程序开发工具(Rapid Application Development，简称RAD)。它的前身，即是DOS时代盛行一时的“BorlandTurbo Pascal”，最早的版本由美国Borland（宝兰）公司于1995年开发。主创者为Anders Hejlsberg。经过数年的发展，此产品也转移至Embarcadero公司旗下。Delphi是一个集成开发环境（IDE），使用的核心是由传统Pascal语言发展而来的Object Pascal，以图形用户界面为开发环境，透过IDE、VCL工具与编译器，配合连结数据库的功能，构成一个以面向对象程序设计为中心的应用程序开发工具。

Answer 2

var
a:array of Integer; //定义a为动态数组
count,i:Integer;
begin
SetLength(a,10); //给数组a确定大小
for count:=0 to 9 do//给数组a循环赋值
begin
a[count]:=count;
end;
for i:=0 to Length(a)-1 do //将a的数组循环添加到memo1中
begin
Memo1.Lines.Add(IntToStr(a[i])) ;
end;
end;

Answer 3

begin
for i:=Low(a) to High(a) do
mmo1.Lines.Add(IntToStr(a[i]))
end;

干嘛 要用 memo1.Lines.Count 要是a[i] 溢出了怎么办?