정말로 진지하게 고민을 하시고 글을 쓰신겁니까?
만약 진지하게 고민하신거라면...이쪽이 적성이 아니신게 아닐지...
그래도 열정이 있으시다면 왜 이렇게 해줬는지 고민해보시고
공부하세요~~!!
procedure TForm1.Button1Click(Sender: TObject);
var
i, j, cnt : Integer;
begin
cnt := 1;
for i := 0 to 4 do
begin
for j := 0 to i do
begin
sg.cells[j+(4-i),i] := IntToStr(cnt);
inc(cnt);
end;
end;
end;
만약 진지하게 고민하신거라면...이쪽이 적성이 아니신게 아닐지...
그래도 열정이 있으시다면 왜 이렇게 해줬는지 고민해보시고
공부하세요~~!!
procedure TForm1.Button1Click(Sender: TObject);
var
i, j, cnt : Integer;
begin
cnt := 1;
for i := 0 to 4 do
begin
for j := 0 to i do
begin
sg.cells[j+(4-i),i] := IntToStr(cnt);
inc(cnt);
end;
end;
end;