Вывод двумерного массива

[pancho]

проблема с выводом двумерного массива в стрингрид..ничего не пойму вроде всё правильно пишу,а она пишет только 0..вот код

PHP код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
Type TMas = array[1..100,1..100] of integer;
 Var    B:Tmas;
{$R *.dfm}
Var f:textfile;
procedure Vvod(b:TMas;m,n:integer);
Var i,j:integer;
begin
Randomize;
      for i:=1 to m do
          for j:=1 to n do
          b[j][i]:=2*Random(5)+1
end;
procedure Vivod(b:TMas;m,n:integer);
Var i,j:integer;
begin
Randomize;
      for i:=1 to m do
          for j:=1 to n do
          Form1.StringGrid1.Cells[i,j]:=IntToStr(b[j][i]);
end;
procedure Vfile(b:Tmas;m,n:integer);
Var i,j:integer;
begin
 Assignfile(f,'f.txt');
    Rewrite(f);
    for i:=1 to m do
    begin
        for j:=1 to n do begin
        write(f,b[j][i]);
        end;
        writeln(f,b[j][i]);
        end;
Closefile(f);
end;
procedure TForm1.Button1Click(Sender: TObject);
Var m,n:integer;
begin
    m:=StrToInt(Edit1.text);
    n:=StrToInt(Edit1.text);
    StringGrid1.RowCount:=m+1;
    StringGrid1.ColCount:=n+1;
    Vvod(B,m,n);
    Vivod(B,m,n);
end;

procedure TForm1.Button2Click(Sender: TObject);
Var m,n:integer;
begin
    m:=StrToInt(Edit1.text);
    n:=StrToInt(Edit1.text);
    Vfile(B,m,n);
end;

end. 


массив он выводит в текстовый файл..выводит нормально..

очень прошу помощи..сижу тут и никак не пойму почему не выводит массив рандомных нечётных чисел..заранее спасибо

[maladoy]

поменяйте

b[j][i]

на

b[j,i]

[pancho]

небольшая поправочка)
m:=StrToInt(Edit1.text);
n:=StrToInt(Edit2.text);

[pancho]

maladoy
поменял..без изменений..всё так же пишет нули..

[goblinyara]

хмм... ну во-первых, здесь мне не очень понятно, зачем вы матрицу транспонируете:

Form1.StringGrid1.Cells[i,j]:=IntToStr(b[j][i]);

тогда уж должно быть

Form1.StringGrid1.Cells[i,j]:=IntToStr(b[i,j]);

а во-вторых,

procedure Vvod(b:TMas;m,n:integer);

надо писать так:

procedure Vvod(var b:TMas;m,n:integer);

тогда всё появляется.

[pancho]

goblinyara оо)всё заработало))
спасибо большое)

[goblinyara]

pancho, а ты понял, почему до этого не работало?

[pancho]

goblinyara да понял)у меня в процедуре было не вар поставлено)
и я ей передавал как бы не существующий массив..я так понял

[goblinyara]

нет, вы ей передавали существующий массив, но!!!! он определялся как локальная переменная, а var как раз-таки определяет этот массив как глобальный.

[pancho]

ааа.то есть это подпрограмма нужна только для того чтобы массив который мы хотим создать стал глобальным?
а глобальный мы записали просто в стринг грид.
понятна)спасибо за обьяснение