guardar una matriz en un archivo de texto .txt
 

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. :)

Hola.

En primer lugar, bienvenid@ al clubdelphi, veo que sos bastante nuev@ por acá.

Te recomiendo que uses la etiqueta delphi para publicar trozos de código. En esta ocasión, edito tu mensaje original para que veas la diferencia en la presentación del mensaje.

Te recomiendo que leas también la guia de estilo (link en mi firma).

Finalmente, cuando publiques un tema, te recomiendo que presentes dudas puntuales. De la manera que lo has hecho ahora, parece mas bien que esperas que alguien te haga la tarea, y eso no lo encontrarás por acá. En cambio, si demostrás haberte esforzado o pedis pistas concretas, seguramente obtendrás un buen nivel de ayuda.

Finalmente, con respecto de tu problema, podes valerte de la clase TStringList para generar el archivo y guardarlo con su método SaveToFile.

Hasta luego.

;)