27.04.2010, 06:17
|
|
Постоянный
Регистрация: 27.10.2008
Сообщений: 380
С нами:
9231117
Репутация:
149
|
|
procedure TForm1.Timer1Timer(Sender: TObject);
var
j, n, k: integer;
begin
j:=j+1;
if j = n then
begin
k := k+1;
j:=1;
end;
Label1.caption := StringGrid1.Cells[k,j];
end;
ещебы это работало
j:=j+1;
if j = n then
и j, и n, и k локальные нигде не определенные переменные, и может я и туплю но смысл кода невкурил ((
|
|
|