[Alegun]

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

...как реализовать возможность запроса на русском языке?...

Да это возможно не гугельмопс глючит, это кодировка xml подводит - выводится utf-8, хорошо бы сменить первую строчку в теле файла на <?xml version="1.0" encoding="windows-1251" ?>

З.Ы.

...И сразу попутный вопрос...

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
s:   string;
i:   integer;
flg: boolean;
sl: TStrings;
begin
 s:= '<pos>37.592797 55.771494</pos>';

// Delete(s,1,5);
// Delete(s,Length(s)-5,6);
// Edit1.Text:= Copy(s,1,pos(' ',s));
// Edit2.Text:= Copy(s,pos(' ',s),Length(s));

{ Edit1.Clear;
 Edit2.Clear;
 flg:= false;
 for i := 1 to Length(s) do
  if s[i] in ['0'..'9', '.', ' '] then
   begin
    if flg then Edit2.Text:= Edit2.Text + s[i] else
     if s[i] <> ' ' then Edit1.Text:= Edit1.Text + s[i];
    if s[i] = ' ' then flg:= true;
   end;}

 sl:= TStringList.Create;
 sl.DelimitedText:= s;
 Edit1.Text:= StringReplace(sl[0],'<pos>','',[]);
 Edit2.Text:= StringReplace(sl[1],'</pos>','',[]);
 sl.Free;

end;