Crear matriz

[ecfisa]

Empezado por newtron

P.D. El amigo ecfisa se me ha adelantado jejejee

Si, pero tu código me gusta mas...

Un saludo.

[rebufo]

Bueno, Bueno no os peleeis, los dos codigos me gustan mucho.
La verdad es que me parece impresionante como funciona este foro. Enhorabuena por la parte que os toca.
Lo que yo llevo "rayandome" dos semanas, me lo habeis solucionado en 2 horas. Ahora me toca a mi seguir rayandome para terminar el programa.
Pena que no estais en A Coruña para invitaros a unas cervecitas.
Mil gracias a los dos.

[[newtron]]

Empezado por rebufo

Pena que no estais en A Coruña para invitaros a unas cervecitas.

naaaaaaaaaa hombreeeeeee.... llama al telebirra y que nos manden unas a ecfisa y otras para mi.

[rebufo]

Newton
He intentando compilar el programa pero me da problemas cuando se terminan los datos del campo [COORDENADAS].
Es decir, la aplicación lee correctamente toda la matriz pero al llegar al final y encontrarse con ausencia de datos, me da un fallo ya que un ‘ ‘ (espacio en blanco) no es un SmallInt.
¿Cómo podría solucionarlo?
Un saludo

[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