Crear matriz

[rebufo]

Gracias Newton.
Creo que entiendo lo que comentas pero no sé si se puede aplicar para mi problema.
Del archivo de texto inicial únicamente necesito los datos del campo [coordenadas] y el resto son datos que no necesito para nada.
Además el archivo original puede temer un número de líneas variable, por lo que mi idea es decirle al programa que abra el archivo .txt donde se encuentran toda la información, que busque el campo [coordenadas] (independientemente de la posición en la que se encuentre) y que me cree una matriz (o vectores) con cada una de los subcampos ID linea , Coord X y Coord Y.
Después le daría otra orden para que a partir de los datos de esa matriz me dibujara los puntos con sus coordenadas x e y.
Mil gracias de nuevo y un saludo

[ecfisa]

Hola rebufo.

Si el documento siempre respeta el orden que mostras en tu mensaje, podrías armar la matriz de este modo:

Código Delphi [-]
type
  TMatriz = array[1..3, 1..100] of integer;  // 100 o el nro máximo de líneas esperado
  ...

implementation

procedure ObtenerValores(var Matriz: TMatriz; var Tope: Integer);
var
  F: TextFile;
  s: string;
  ts: TStrings;
  fil,col: Integer;
begin
  AssignFile(F,'C:\TU_ARCHIVO.TXT');
  Reset(F);
  while not Eof(F) and (s <> '[COORDENADAS]') do  
    ReadLn(F, s); // saltar irrelevantes
  Readln(F,s);    // saltar línea: ";ID Coord X Coord Y"
  fil:= 1;
  while not Eof(F) and (s <> '[VERTICES]') do // o (s <> '') si hay linea en blanco al fin de la serie
  begin
    Readln(F,s);
    try
     ts:= TStringList.Create;
     ts.Clear;
     ts.Delimiter:= ' ';
     ts.DelimitedText:= s;
     for col:= 0 to ts.Count-1 do
       Matriz[col+1, fil]:= StrToInt(ts[col]);
    finally
     ts.Free;
    end;
    Inc(fil);
  end;
  Tope:= fil -1;
  CloseFile(F);
end;
...

Ejemplo de llamada:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  mt: TMatriz;
  t,i: Integer;
begin
  ObtenerValores(mt, t);
  for i:= 1 to t do
    Memo1.Lines.Add(IntToStr(mt[1,i])+'-'+IntToStr(mt[2,i])+'-'+IntToStr(mt[3,i]));
end;

Un saludo.

[[newtron]]

Ok, te he preparado un ejemplo de como lo puedes hacer

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  Fichero: TextFile;
  Id,X,Y: SmallInt;
  sLinea: String;
  iCoordenadas: array of array of SmallInt;
begin
  AssignFile(Fichero,'D:\Temp\Fichero.txt');
  Reset(Fichero);
  While not Eof(Fichero) do begin
    ReadLn(Fichero,sLinea);
    if sLinea='[COORDENADAS]' then begin
      ReadLn(Fichero,sLinea); // Nos saltamos la linea ;ID Coord X Coord Y
      while true do begin
        ReadLn(Fichero,sLinea);
        try
          Id:=StrToInt(Copy(sLinea,1,2));
          x :=StrToInt(Copy(sLinea,4,2));
          y :=StrToInt(Copy(sLinea,7,2));
          SetLength(iCoordenadas,Length(iCoordenadas)+1,3);
          iCoordenadas[Length(iCoordenadas)-1,0]:=Id;
          iCoordenadas[Length(iCoordenadas)-1,1]:=x;
          iCoordenadas[Length(iCoordenadas)-1,2]:=y;
        except
          // Entiendo que cuando de error han acabado las coordenadas
          break;
        end;
      end;
    end;
    if Length(iCoordenadas)>0 then break; // Entiendo que ya ha cogido las coordenadas y me salgo
  end;
  CloseFile(Fichero);
  // Aquí ya tienes las coordenadas en la matriz iCoordenadas y puedes continuar...

end;

Espero que te sirva.
Saludos

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

[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.