[MegaPiha]

Сообщение от AndrYxo

Пасиб) Я видел - и тоже пост подправил - это получается с помощью этой переменной мне не выдает ошибку прога - а можно мне как-то сделать что бы мое сообщение выдавало - типа - Сначала заполни матрицу, а потом только жми на меня

Код:

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
else 
ShowMessage('Сначала заполните матрицу');

end;