Показать сообщение отдельно
  #79  
Старый 17.04.2008, 23:15
MegaPiha MegaPiha вне форума
Активный
 
Регистрация: 24.03.2008
Сообщения: 227
Версия Delphi: Delphi 7
Репутация: 30
По умолчанию

описываем в самом начале программы
Код:
Var btnPres:=boolean;

Код:
procedure TForm5.Button6Click(Sender: TObject);
var i,j:integer;
begin
n:=12;
m:=9;
setlength(A,n,m);
stringgrid1.RowCount:=n;
stringgrid1.ColCount:=m;
for i:=0 to n-1 do
for j:=0 to m-1 do
  begin
  A[i,j]:=sin(j)/cos(j)+exp(cos(i));;
  stringgrid1.Cells[j,i]:=FormatFloat('0.00',A[i,j]);
  end;
btnPres:=true;
end;


Код:
procedure TForm5.Button7Click(Sender: TObject);
var i,j,t:integer;
tmp:real;
begin
if btnPres = true then
begin
   m:=stringgrid1.ColCount;
   k:=0;
   l:=8;
   for i:=0 to n-1 do
    begin
      tmp:=A[i,k];
      A[i,k]:=A[i,l];
     A[i,l]:=tmp;
   end;
   for t:=0 to n-1 do
   for j:=0 to m-1 do
   stringgrid1.Cells[j,t]:=FormatFloat('0.00',A[t,j]);
end;
end;
В процедуре создания формы пишем btnPres = false