procedure TForm1.Button1Click(Sender: TObject);
var
pan:array[1..20, 1..20] of integer;
i, j:integer;
begin
for i:=1 to 20 do
for j:=1 to 20 do
begin
pan[i, j]:= 0;
end;
for i:=1 to 20 do
for j:=1 to 20 do
begin
richedit1.text:=inttostr(pan[i, j]);
end;
end;
위의 2차원 배열을 메모나 리치에디트에 출력하고 싶은데 마지막의 0 하나만이 찍힘니다. 어떻게 해야 2차원 배열을 제대로 출력할수 있을까요??
위의것을 아래와 같이하면 되지 않을 랑가요...
richedit1.text:=richedit1.text+inttostr(pan[i, j]);
>
> procedure TForm1.Button1Click(Sender: TObject);
> var
> pan:array[1..20, 1..20] of integer;
> i, j:integer;
> begin
> for i:=1 to 20 do
> for j:=1 to 20 do
> begin
> pan[i, j]:= 0;
> end;
> for i:=1 to 20 do
> for j:=1 to 20 do
> begin
> richedit1.text:=inttostr(pan[i, j]);
> end;
> end;
> 위의 2차원 배열을 메모나 리치에디트에 출력하고 싶은데 마지막의 0 하나만이 찍힘니다. 어떻게 해야 2차원 배열을 제대로 출력할수 있을까요??
>
>