- Код: Выделить всё
procedure Tf_work.btn_currClick(Sender: TObject);
var
dollar,euro,myString:string;
date:string;
s1,s2:string;
begin
IdHTTP1.Request.UserAgent:='Mozilla/5.0 (Windows NT 5.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/47.0.2526.111 YaBrowser/16.2.0.3539 Yowser/2.5 Safari/537.36';
date:= formatdatetime('DD.MM.YYYY',now());
myString:=(IdHTTP1.Get('http://www.cbr.ru/scripts/XML_daily.asp?date_req='+date));
s1:=copy(myString,pos('<NumCode>978</NumCode>', myString),length(myString)-pos('<NumCode>978</NumCode>', myString)-21);
euro:=copy(s1,pos('<Value>',s1)+7,pos('</Value>',s1)-pos('<Value>',s1)-7);
s1:=copy(myString,pos('<NumCode>840</NumCode>',myString),length(myString)-pos('<NumCode>840</NumCode>',myString)-21);
dollar:=copy(s1,pos('<Value>',s1)+7,pos('</Value>',s1)-pos('<Value>',s1)-7);
label_euro.Caption:=euro;
label_dollar.Caption:=dollar;
end;
Вся его прелесть в том, что десяток строк с использованием XML заменены 2 строчками с функцией copy . Так мы решали задачи в прошлом тысячелетии. Как в народе говорят:"Старый конь....."
Всех с Новым , 2020, Годом!!