Ayuda lectura archivos de texto en FreePascal

[[xEsk]]

Hola, he dado por hecho que los tags HTML son un error xD

Te he escrito esta función que te extraerá la inforamción, fila por fila:

Código Delphi [-]
procedure TForm1.ParsearInformacion(Info: String);
var
  n: Integer;
  Ancho,
  Alto: String;

begin
  with TStringList.Create do
    try
      Text:=Info;
      // vamos linea por linea
      for n:=0 to Count - 1 do
        begin
          // obtenemos el ancho (el primer valor de la fila)
          Ancho:=Copy(Strings[n], 1, Pos(' ', Strings[n]) - 1);
          // obtenemos el alto (el segundo valor de la fila)
          Alto:=Copy(Strings[n], Length(Ancho) + 2, Length(Strings[n]));
        end;
    finally
      Free;
    end;
end;

Como puedes ver, tienes que hacer algunos cambios para que guarde la información donde mas te guste, por ahora he creado dos variables String locales.

Este código funciona tanto en Delphi como con Lazzarus.

Saludos.