привет всем
возникла такая проблема:
например такой текст:
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.
нужно считать в переменную цифры в ковычках
помогите плиз