Crear matriz

[kdemia]

Quiza para que tengas mas a mano las dimensiones que te quedo la matriz podrias modificar y en vez de un proceso sea una funcion que devuelva un TPoint..

Código Delphi [-]
function Procesar ( sArchivo : String ) : TPoint;

y antes de la operacion

Código Delphi [-]
...
SetLength(Matriz, 3, MiArchivo.Count);
...

podes agregar un

Código Delphi [-]
Result.X := 3;
Result.Y := MiArchivo.Count;

ahh y hay una parte del codigo que esta mal.. y es esta

Código Delphi [-]
Delete(Texto, 1, Pos(Texto, ' ') - 1);

cambiala por esta otra

Código Delphi [-]
Delete(Texto, 1, Pos(Texto, ' '));

si newtron hay incontables maneras de hacer las cosas XD es buenisimo eso .. :P