Q&A

  • 델파이를 배우는데 질문하나 드릴게요~
델파이를 배우는데 숫자가
1   2   3   4   5
10  9   8   7   6
11 12 13 14 15
20 19 18 17 16
21 22 23 24 25

이렇게 나오게 하려고 하는데 스트링그리드하고 버튼을 이용해서
procedure TForm1.Button1Click(Sender: TObject);
var
i, j : integer;
cnt : integer;
begin
cnt := 1;
for i := 0 to 4 do
   begin
   if j mod 2 = 1 then
      for j:= 0 to 4 do
   else
      for j:= 4 downto 1 do
   begin
   stringgrid1.cells[j, i] := inttostr(cnt);
   inc(cnt);
   end;
end;

end;

end.

몇시간째하다가 안되서 염치불구하고 질문드립니다.
0  COMMENTS