tomar valor de entre cadena delphi xe 10

[wolfran_hack]

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

lon="-58.54236984"

y mostrarlo como -58.54236984

ideas¿?

[ecfisa]

Hola wolfran_hack.

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

...
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 :)

[wolfran_hack]

Gracias! para XE:

uses System.StrUtils