неправильно выдаёт stringgrid

[chelsi]

вот задача она считаёт все правильно,только не там где надо выдаёт stringgrid заранее спасибо!!!
procedure zadanie4(n:integer; var a:mass);
var i,k,j,t,h,temp,jj:integer;
begin
k:=0;
h:=0;
for i:=1 to n-1 do
if a[i,j]<a[i+1,j] then
k:=k+1;
if k=n-1 then
h:=1
else
begin
For j:=1 to n do
For i:=1 to n do
x[i,j]:=A[i,j];
For i:=1 to n do
For j:=2 to n do
If x[i,j-1]>x[i,j] then
Begin
temp:=x[i,j-1];
x[i,j-1]:=x[i,j];
x[i,j]:=Temp;
For jj:=j downto 2 do
If x[i,jj-1]>x[i,jj] then
Begin
temp:=x[i,jj-1];
x[i,jj-1]:=x[i,jj];
x[i,jj]:=Temp
End;
End;
end;
end;
procedure TForm1.N6Click(Sender: TObject);
var i,k,n,h,j:integer;
begin
edit2.Visible:=false;
stringGrid2.Visible:=false;
n:=strtoint(edit1.Text);
memo4.Visible:=true;
memo2.Visible:=false;
memo3.Visible:=false;
memo1.Visible:=false;
k:=0;
for i:=1 to n do
begin
k:=0;
for j:=1 to n-1 do
if a[i,j]<a[i,j+1] then
k:=k+1;
if k=n-1 then
h:=1;
if h=1 then
begin
edit2.Text:='все элементы упорядочены'; //вот в этом месте
edit2.Visible:=true;
end
else
zadanie4(n,a); //вот в этом месте
For i:=1 to n do
For j:=1 to n do
StringGrid2.Cells[j-1,i-1]:=floattostr(x[i,j]);
StringGrid2.Visible:=True;
end;
end;

[alexBlack]

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

вот задача она считаёт все правильно,только не там где надо выдаёт stringgrid заранее спасибо!!!

что значит "не там где надо выдает" ?
Опишите словами в какой StringGrid и что должно выдаваться. Лучше полностью постановку задачи. А так непонятно, что Ваш код делает и зачем там два Edit'а, 4 memo и 2 StringGrid

[chelsi]

это метод просеивания мне надо упорядочить по возрастанию столбцы
когда все они стят по возрастанию надо выдать edit2.Text:='все элементы упорядочены'; //этот дя вывода результата,он есть на форме
ичтобы был скрыт stringGrid2,но он у меня не скрывается(вот в чём проблема)
edit2.Visible:=true;
edit1.(для ввода размерности)
procedure zadanie4(n:integer; var a:mass);
var i,k,j,t,h,temp,jj:integer;
begin
k:=0;
h:=0;
for i:=1 to n-1 do
if a[i,j]<a[i+1,j] then
k:=k+1;
if k=n-1 then
h:=1
else
begin
For j:=1 to n do
For i:=1 to n do
x[i,j]:=A[i,j];
For i:=1 to n do
For j:=2 to n do
If x[i,j-1]>x[i,j] then
Begin
temp:=x[i,j-1];
x[i,j-1]:=x[i,j];
x[i,j]:=Temp;
For jj:=j downto 2 do
If x[i,jj-1]>x[i,jj] then
Begin
temp:=x[i,jj-1];
x[i,jj-1]:=x[i,jj];
x[i,jj]:=Temp
End;
End;
end;
end;
procedure TForm1.N6Click(Sender: TObject);
var i,k,n,h,j:integer;
begin
edit2.Visible:=false;
stringGrid2.Visible:=false;
n:=strtoint(edit1.Text);
memo4.Visible:=true;
memo2.Visible:=false;(для вывода разных условий задач, это например для второго)
memo3.Visible:=false;
memo1.Visible:=false;
k:=0;
for i:=1 to n do
begin
k:=0;
for j:=1 to n-1 do
if a[i,j]<a[i,j+1] then
k:=k+1;
if k=n-1 then
h:=1;
if h=1 then
begin
edit2.Text:='все элементы упорядочены'; //этот дя вывода результата,он есть на форме
edit2.Visible:=true;
end
else
zadanie4(n,a); //вот в этом месте
For i:=1 to n do
For j:=1 to n do
StringGrid2.Cells[j-1,i-1]:=floattostr(x[i,j]);это для вывода упорядочен. матрицы
StringGrid2.Visible:=True;
end;
end;

[alexBlack]

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

это метод просеивания мне надо упорядочить по возрастанию столбцы
когда все они стят по возрастанию надо выдать edit2.Text:='все элементы упорядочены';
...
и чтобы был скрыт stringGrid2,но он у меня не скрывается(вот в чём проблема)

Вы же его сами показываете в конце цикла:
StringGrid2.Visible:=True;

ЗЫ. Когда приводите код выделяйте его тегами CODE (кнопочка #)