for문을
for j:= 4 downto 0 do
for i:= 4 - j to 4 do
꼬겡 님이 쓰신 글 :
: 5행5열로 StringGrid 를 하나 만들고요
: 그아래 버튼을 하나 넣었습니다.
:
: procedure TForm1.Button1Click(Sender: TObject);
: var
: i, j , su : integer;
: begin
: su := 1;
: for j:= 0 to 4 do
: for i:= j to 4 do
: begin
: StringGrid1.Cells[j,i] := intTostr(su);
: inc(su);
: end;
: end;
:
: 이렇게 소스를 짜면 왼쪽 상단부터 계단형식으로
:
: 1
: 2 6
: 3 7 10
: 4 8 11 13
: 5 9 12 14 15
:
: 이렇게 나오거든요? 근데 저거와 반대로
: 오른쪽 상단부터 왼쪽 아래로 내려오게 하는 법을 모르겠어요 ㅠㅠ
:
: 1
: 6 2
: 10 7 3
: 13 11 8 4
: 15 14 12 9 5
:
: 이런식으로 나오게 하고싶은데
: for i 를 아무리 바꺼봐도 안되네요 어떻게 하면 되나요?...
: 고수님들 답변바래요 ~~~~~
|