guano2005
17-01-2008, 15:40:50
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:
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. :)
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:
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. :)