[Gudzik11]

подскажите можно ли этот код

Код:

    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 ;
     Label8.CAPTION :='ïîãîäà â ' + XMLDocument1.DocumentElement.ChildNodes['city'].ChildNodes['name'].Text + 'å';
     Label9.CAPTION := XMLDocument1.DocumentElement.ChildNodes['current'].ChildNodes['t'].Text+' °Ñ';
     g:= XMLDocument1.DocumentElement.ChildNodes['current'].ChildNodes['pict'].Text;

     
       RxGIFAnimator1.Image.LoadFromFile ('clipart\'+g);
    


     XMLDocument1.Active := false;

как то поместить в функцию или в процедуру чтоб я мог потом её вызывать когда мне это нужно

[angvelem]

Разве существуют какие-либо ограничения на код помещаемый в процедуры/функции?

[Gudzik11]

Это должно выглядеть так ?

Код:

function Pogoda(s,g: string): string;
   var
     s,g: 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 ;
     Label8.CAPTION :='ïîãîäà â ' + XMLDocument1.DocumentElement.ChildNodes['city'].ChildNodes['name'].Text + 'å';
     Label9.CAPTION := XMLDocument1.DocumentElement.ChildNodes['current'].ChildNodes['t'].Text+' °Ñ';
     g:= XMLDocument1.DocumentElement.ChildNodes['current'].ChildNodes['pict'].Text;

    


     XMLDocument1.Active := false;
   end ;

[angvelem]

Автору конечно виднее, но как ты думаешь, эти переменные не передерутся?

Код:

function Pogoda(s,g: string): string;
   var
     s,g: string;

и второе, а что ты возвращаешь?

[Gudzik11]

чёт не как не выходит! подскажите как сделать?

[angvelem]

Что не выходит, что должно получиться?

[Gudzik11]

мне нужно чтоб этот код делался при загрузке программы а потом потом периодически повторялся. можно конечно переписывать код постоянно но ка кто не удобно.
возвращаю? если я вас правильно понял то скачиваю XML и вывожу значения из него которые меняються

[angvelem]

Давай по-порядку:
1. имена входных и локальных переменных у тебя одинаковые, для чего?
2. где возвращаемое значение из функции?
3. Периодичность вызова функции и, самостоятельно или по какому-либо событию.
Достаточно?