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.

[ayozito]

mmm okey mañana pruebo que tengo que estarme pasando a Ubuntu y no me apetece xD.

De todas maneras tendre que modificarlo pues lo necesito en FreePascal, si veo que no rula, ya te aviso xD gracias!

[[xEsk]]

Este código lo he escrito en Delphi, pero luego lo he probado con Lazarus (0.9.27).

Los cambios que puedas realizar al código, no tienen a ver con que lo necesites para FreePascal o Delphi, ya que Lazarus compila usando FreePascal... :P

Saludos.