[Alegun]

Сообщение от ghetto

можешь пример написать...

Примерно так

Код:

...

assignfile(a,'D:\test.gpx');
reset(a);
while not EOF(a) do
begin
readln(a,s);
if Pos('lon="', s) > 0 then
begin
SetLength(s, Length(s)-1);
s:= Copy(s, 6, Length(s));
end;

...