[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. Периодичность вызова функции и, самостоятельно или по какому-либо событию.
Достаточно?

[Gudzik11]

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;

[angvelem]

Это не возвращаемое условие, а часть кода:

Код:

XMLDocument1.DocumentElement.ChildNodes['city'].ChildNodes['name'].Text
  XMLDocument1.DocumentElement.ChildNodes['current'].ChildNodes['t'].Text
   XMLDocument1.DocumentElement.ChildNodes['current'].ChildNodes['pict'].Text;

Что такое функция?

Код:

function MyFunc : String;
begin
  SomeCode
  Result := что-то
end;

может достаточно процедуры, всё-равно ничего не возвращаешь. Периодичность, если цикличная, используй таймер. Там же, в таймере, можно проверять некое условие запуска кода, если не цикличная.

[Gudzik11]

а как сделать процедуру на моём примере и как её вызывать потом?

[Gudzik11]

как то так

Код:

 
procedure TForm1.Pogoda(Sender: TObject);
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;

[angvelem]

Если g, нужно всё-таки вернуть, сделай примерно так:

Код:

function MyFunc(S : 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 ;
  Label8.CAPTION := 'погода в ' + XMLDocument1.DocumentElement.ChildNodes['city'].ChildNodes['name'].Text + 'е';
  Label9.CAPTION := XMLDocument1.DocumentElement.ChildNodes['current'].ChildNodes['t'].Text + ' °С';
  Result := XMLDocument1.DocumentElement.ChildNodes['current'].ChildNodes['pict'].Text;
  XMLDocument1.Active := False;
end;

[Gudzik11]

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

[angvelem]

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

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

1. Весь код и выполнится, при условии, что не возникнет ошибки.
2. Нет неправильно, использована неинициализированная локальная переменная s, локальная переменная g, будет потеряна по выходу из процедуры.
3. где-то в коде:

Код:

  ...
  Pogoda(NIL);
  ...