델파이를 배우는데 숫자가
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.
몇시간째하다가 안되서 염치불구하고 질문드립니다.