[guano2005]

Hola a todos, un cordial saludo. Bien, tengo el siguiente problema.

Tengo un programa en el cual introduzco una matriz o arreglo de n filas por m columnas. necesito saber como llevar ese arreglo a un archivo de texto.txt, el codigo que tengo es este:

Código Delphi [-]
unit Unit1;

interface

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

type
  matriz = array[1..10, 1..10] of integer;
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    StringGrid_Matriz1: TStringGrid;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  n : integer;
  m : integer;
  i : integer;
  j : integer;
  mat1 : matriz;


implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
n := strtoint(inputbox('Ingrese # filas','','0'));
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
m := strtoint(inputbox('Ingrese un numero de columnas','','0'));
end;

procedure TForm1.Button3Click(Sender: TObject);

begin
i := 0;
j := 0;
  for i := 1 to n do
    for j := 1 to n do
      begin
      mat1[i,j] := strtoint(inputbox('Ingrese un Numero','','0'));
      stringgrid_matriz1.Cells[i -1 , j -1] := inttostr(mat1[i,j]);
      end;
  end;



end.

Bien, con este algoritmo logro introducir la matriz, pero ahora lo que necesito es guardar esta matriz en un archivo de texto (.txt), por ejemplo, si yo inserto en el programa una matriz y le digo que n=3, m=3, e ingreso la matriz, que por ejemplo sea

1 2 3
4 5 6
7 8 9

necesito que esa matriz sea enviada a un archivo de texto llamado matriz.txt.

Muchas gracias por toda la atención y espero que puedan ayudarme.