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 를 아무리 바꺼봐도 안되네요 어떻게 하면 되나요?...
고수님들 답변바래요 ~~~~~
|