Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/maincore.php on line 12
Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/maincore.php on line 25
Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/maincore.php on line 25
Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/maincore.php on line 26
Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/maincore.php on line 26
Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/maincore.php on line 27
Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/maincore.php on line 27
Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/maincore.php on line 28
Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/maincore.php on line 28
Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/maincore.php on line 29
Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/maincore.php on line 25
Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/maincore.php on line 25
Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/maincore.php on line 26
Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/maincore.php on line 26
Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/maincore.php on line 27
Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/maincore.php on line 27
Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/maincore.php on line 28
Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/maincore.php on line 28
Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/maincore.php on line 29
Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/side_left.php on line 41
Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/side_left.php on line 41
вот какая у меня проблема...есть код для заполнения StringGrid. Это для теста...всего в тесте должно быть 5 таблиц...так вот подскажите пожалуйста как мне сделать так, чтобы после заполнения перврй таблицы, появилась вторая...потом 3 так до 5..Вот код для 1 квадрата
unit Unit1;
{$R *.dfm}
procedure TForm1.AtoSg(a:Tar;s:Tstringgrid);
var i,j:integer;
begin
for I := 0 to 4 do
for j := 0 to 4 do
s.cells[i,j]:=inttostr(a[j,i]);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
AtoSg(a1,stringgrid1);
end;
procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
label1.Caption:='Приготовились!!!';
for i := 0 to 4 do
StringGrid1.RowHeights[i]:=StringGrid1.ColWidths[0];
T:=0;
TT:=1;
T11.Enabled:=true;
st:=1;
z:=false;
stringgrid1.Enabled:=false;
end;
procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
var CanSelect: Boolean);
begin
if stringgrid1.Cells[acol,arow]= inttostr(st) then
begin
inc(st);
stringgrid1.Cells[acol,arow]:='';
end;
if st=26 then begin z:=true;st:=1;end;
end;
procedure TForm1.T11Timer(Sender: TObject);
begin
stringgrid1.Enabled:=false;
case t of
0:stringgrid1.Visible:=True;
1:begin
if tt<>6 then T22.Enabled:=true;
T:=0;
stringgrid1.Visible:=False;
T11.Enabled:=false;
end;
end;
label1.Caption:='Начали!!!';
case TT of
1: AtoSg(a1,stringgrid1);
2: AtoSg(a2,stringgrid1);
3: AtoSg(a3,stringgrid1);
4: AtoSg(a4,stringgrid1);
5: AtoSg(a5,stringgrid1);
end;
memo1.Lines.Add('t'+inttostr(Tt)+'='+inttostr(t1[tt]));
inc(T);
end;
procedure TForm1.T22Timer(Sender: TObject);
begin
stringgrid1.Enabled:=true;
stringgrid1.Visible:=true;
inc(t1[TT]);
if z and (tt>5) then t22.enabled:=false; label1.Caption:='Тест Завершен!!!';
if z and (tt<5) then begin label1.Caption:='Приготовились!!!'; T22.enabled:=false;inc (TT);T11.Enabled:=true;end;
if z then z:=false;
end;
end.
Перейти на форум:
Гость
Вы не зарегистрированны? Нажмите здесь для регистрации.