Crear matriz

[ecfisa]

Hola rebufo.

Es extraño, ya que los errores de conversión en el código de newtron, estan contemplados en el bloque try/except...
Yo lo probé con los datos que enviaste y funciona correctamente. ¿ Alguna variación en el formato del archivo de texto ?

Un saludo.

[[newtron]]

Hola.

Lo que se me ocurre es que al ejecutar el programa desde delphi te de el error EconvertError, esto es porque no lo tienes en la lista "Language exception" del debugger, para añadirlo pica en la casilla de la parte baja a la izquierda de la ventana que pone "Ignore this exception type" y luego picas en "continue", de esta forma lo agregas de forma automática a la lista de errores y no te aparecerá de nuevo.

De todas formas si ejecutas el programa compilado no debe de darte ese mensaje.

Saludos

P.D.: ecfisa y yo seguimos esperando esas birras

[kdemia]

a ver si te sirve ?

Código Delphi [-]
var
  Form1: TForm1;
  Matriz : Array of Array of Integer;

Código Delphi [-]
procedure TForm1.Procesar ( sArchivo: String );
var
  MiArchivo: TStringList;
  i, j, Index: Integer;
  Texto: String;
begin
  MiArchivo := TStringList.Create;
  MiArchivo.LoadFromFile(sArchivo);
  Index := MiArchivo.IndexOf(';ID Coord X Coord Y');

  for i := 0 to Index do
    MiArchivo.Delete(0);

  Index := MiArchivo.IndexOf('[VERTICES]');

  for i := Index - 1 to MiArchivo.Count - 1 do
    MiArchivo.Delete(Index - 1);

  SetLength(Matriz, 3, MiArchivo.Count);

  for i := 0 to MiArchivo.Count - 1 do
  begin
    Texto:= MiArchivo.Strings[i];
    for j := 0 to 2 do
    begin
      Matriz[j, i] := StrToInt(Copy(Texto, 1, Pos(' ', Texto) - 1));
      Delete(Texto, 1, Pos(Texto, ' ') - 1);
    end;
  end;
  MiArchivo.Free;
end;

Llamada al ejemplo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  Procesar('C:\MiArchivoDeTexto.txt');
end

disculpa no soy muy bueno con los comentarios.. si no entendes alguna linea me preguntas

[[newtron]]

Yo flipo con la cantidad de maneras de las que se puede hacer una cosa

[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

[rebufo]

Hola de nuevo a todos.
Estoy trabajando con el código de Newton, pero sigo teniendo problemas a la hora de generar la matriz y no sé muy bien porque. He leído todo lo anterior y efectivamente tenía problemas por el error EconvertErro, pero aun así nada.
Añadiendo o modificando parte del formato (en el archivo .txt) de la matriz [COORDENADAS] he comprobado que el programa la lee correctamente ya que se detiene (me salta un mensaje de error al ejecutar) en el punto donde he añadido la modificación (por ejemplo la letra A).
Para detectar mejor los errores, quiero visualizar en pantalla los pasos de creación de la matriz iCoordenadas con algo parecido a esto. (en Matlab es mucho más fácil detectar los fallos ya que únicamente necesitas eliminar un ; al final de cada orden para visualizarla lo que se está ejecutando en pantalla).

Código Delphi [-]
  
{ Imprimir los resultados en un diálogo de mensajes }
   begin
    For i := 0 to (Length(iCoordenadas)-1) do
      for j:= 0 to 3 do           // previamente tendría que definir la variable j 
       ShowMessage('Matriz['+intToStr(i)+','+intToStr(i)+'] = '+intToStr(iCoordenadas[i,j]));
    end.

Otra opción que me planteo es la de llamar a las variables Id, X, Y de manera independiente.
¿Qué me recomendáis?
Mil Gracias de nuevo.

[kdemia]

probaste el codigo que te puse?