tomar valor de entre cadena delphi xe 10
 

Tengo todo un memo con un codigo fuente y necesito sacar el valor de entre:

y mostrarlo como -58.54236984

ideas¿?

Hola wolfran_hack.

Una que te permite extraer lo comprendido entre el texto: lon=" y la siguiente: "

Código Delphi [-]
...
uses StrUtils;

procedure ....
var
  p1, p2: Integer;
begin
  Memo1.Text := 'Tengo todo un memo con un codigo fuente y necesito sacar' +
                ' el valor de entre: lon="-58.54236984" y mostrarlo como '+
                '-58.54236984 ideas¿?';

  p1  := Pos('lon="', Memo1.Text) + Length('lon="');
  p2  := PosEx('"', Memo1.Text, p1);

  ShowMessage(Copy(Memo1.Text, p1, p2 - p1));
...

Saludos :)

Gracias! para XE: