1. имена входных и локальных переменных у тебя одинаковые
Да тут я понял наверно нужно просто
Код:
function Pogoda(s,g: string): string;
2. где возвращаемое значение из функции?
Код:
XMLDocument1.DocumentElement.ChildNodes['city'].ChildNodes['name'].Text
XMLDocument1.DocumentElement.ChildNodes['current'].ChildNodes['t'].Text
XMLDocument1.DocumentElement.ChildNodes['current'].ChildNodes['pict'].Text;
3. Периодичность вызова функции и, самостоятельно или по какому-либо событию.
по сабытию
и как это всё оформить не пойму
наверно как то так
Код:
function Pogoda(n,t,g: string): string;
begin
GetDir(0,s);
memo2.Text:=Utf8ToAnsi(IdHTTP1.Get('http://xml.weather.co.ua/1.2/forecast/19?dayf=5&userid=yoursite_com'));
Memo2.Text:=Memo1.Text + Memo2.Text + Memo3.Text ;
Memo2.Text:=Replace(Memo2.Text,'<?xml version="1.0" encoding="UTF-8"?>','');
Memo2.Lines.SaveToFile(s+'\1.xml');
XMLDocument1.FileName:='1.xml';
XMLDocument1.Active := true;
Memo4.Text:=XMLDocument1.xml.Text ;
n :='ïîãîäà â ' + XMLDocument1.DocumentElement.ChildNodes['city'].ChildNodes['name'].Text + 'å';
t := XMLDocument1.DocumentElement.ChildNodes['current'].ChildNodes['t'].Text+' °Ñ';
g:= XMLDocument1.DocumentElement.ChildNodes['current'].ChildNodes['pict'].Text;