Ver Mensaje Individual
  #2  
Antiguo 03-01-2009
Avatar de xEsk
[xEsk] xEsk is offline
Miembro Premium
 
Registrado: feb 2006
Posts: 454
Reputación: 19
xEsk Va por buen camino
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.
Responder Con Cita