[ghetto]

привет всем
возникла такая проблема:
например такой текст:
lon="54.897645"

думал так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
p:integer;
e:integer;
s:string;
a:textfile;

begin
assignfile(a,'D:\test.gpx');
reset(a);
while not EOF(a) do
begin
readln(a,s);
if Pos('lon="', s) > 0 then
begin
read(a,p);

end;
end;
end;
end.

нужно считать в переменную цифры в ковычках
помогите плиз

[Bargest]

Читаешь строку, через pos находишь кавычки и конвертируешь через val.

[ghetto]

можешь пример написать я не пойму как конвертировать

[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;

...

[ghetto]

спасибо большое

[ghetto]

а как если не знаешь какой по счету символ?