Q&A

  • 2차원 배열의 값들을 텍스트로 출력을 하려면??


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차원 배열을 제대로 출력할수 있을까요??





2  COMMENTS
  • Profile
    이선경 2000.10.28 18:03
    richedit1.text:=inttostr(pan[i, j]);

    위의것을 아래와 같이하면 되지 않을 랑가요...



    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차원 배열을 제대로 출력할수 있을까요??

    >

    >

  • Profile
    volf 2000.10.29 08:24
    정말 감사합니다.