Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)
-   -   Introducir una matriz desde un archivo de texto (https://www.clubdelphi.com/foros/showthread.php?t=51538)

guano2005 18-12-2007 17:35:33

Introducir una matriz desde un archivo de texto
 
Hola a todos. Un saludo cordial desde colombia. Bien, mi problema es el siguiente, necesito hacer un programa que me lea dos matrices distintas desde un archivo de texto y luego me las sume y me muestre el resultado. La verdad es que soy nuevo en esto, y no se mucho sobre programacion en delphi, pero es en este lenguaje que lo necesito. Me gustaria que me pudieran ayudar. Muchas gracias por la atención.

Tal 18-12-2007 19:22:09

Pues así sin saber el formato de los archivos de texto me imagino que serán n filas por m columnas.
Yo no se mucho de matemáticas y no se lo que quieres decir con sumar matrices, yo tartaré de explicarte como cargarlas.

Código Delphi [-]

//por ejemplo
const n_Columnas=10 Integer;

procedure CargarMatrices;
var
    m1,m2 : array of integer;
    c,f : integer;
    fich : TstringList;
    linea : String;
begin
     fich := Tstringlist.create;     
     fich.loadfromfile('ruta del primer fichero');
     SetLength(m1,fich.count);
     for f := 0 to fich.count-1 do
          for c := 0 to n_columnas do 
          begin
                  //asegurarnos de que no es vacio(deberias verificar que es
                 //el tipo de numero que quieres
                 if linea[c] <> '' then
                     m1[f][c] := linea[c];
          end; 

     fich.loadfromfile('ruta del segundofichero');
     SetLength(m2,fich.count);
     for f := 0 to fich.count-1 do
          for c := 0 to n_columnas do 
          begin
                  //asegurarnos de que no es vacio(deberias verificar que es
                 //el tipo de numero que quieres
                 if linea[c] <> '' then
                     m2[f][c] := linea[c];
          end; 
     fich.free;
end;

Así ya lo tienes cargado luego creo que trabajar con los arrays ya sabras tu solito.
Te hago notar que si hay espacios en blancos debes adecuar el número de columnas.

Espero haberte ayudado un poco.
Hasta luego.

guano2005 17-01-2008 16:27:23

Muchas gracias por tu ayuda. Siento no haberte agradecido antes pero tenia un gran problema con el computador.


La franja horaria es GMT +2. Ahora son las 00:11:10.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi