[Gudzik11]

чёт не разберусь
вот моя процедура

Код:

 procedure TForm1.Pogoda(Sender: TObject);
  begin

    {Âûçâàòü ïðîöåäóðó
       Pogoda(NIL);}
     {Ñêà÷èâàåì XML}
    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');
    {îòêðûâàåì 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;

  
     if FileExistc ('clipart\'+g) then
       begin
       RxGIFAnimator1.Image.LoadFromFile ('clipart\'+g);
       end;


     XMLDocument1.Active := false;
   Label11.Caption := DayOfWeekStr(Date);
   Label12.Caption := DayOfWeekStr(Date+1);
   Label13.Caption := DayOfWeekStr(Date+2);
   Label14.Caption := DayOfWeekStr(Date+3);
   Label15.Caption := DayOfWeekStr(Date+4);
  end;

пытаюсь проверить есть ли картинка если да выводим

Код:

 if FileExistc ('clipart\'+g) then
       begin
       RxGIFAnimator1.Image.LoadFromFile ('clipart\'+g);
       end;

а мне выдаёт ошибку

Variable 'i' is declared but never used in 'Replace'

а если просто ставлю

Код:

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

то всё работает
подскажите в чём причина?

[Bargest]

FileExistc

Это что? Может FileExists?
А вообще обычно

Variable 'i' is declared but never used in 'Replace'

не ошибка, а Warning, то есть предупреждение. Мол не юзаешь I - так удали. Но и без удаления должно запускаться.

[PhoeniX]

Даже не Warning, а Hint. На деле ни к чему не приводит - память под такие переменные не выделяется.

[Gudzik11]

спасибо а I я так и не нашёл

[PhoeniX]

Код:

Variable 'i' is declared but never used in 'Replace' 			 		

Где у тебя функция Replace?

[Gudzik11]

точьно есть там i

Код:

 function Replace(Str, X, Y: string): string;
{Str - ñòðîêà, â êîòîðîé áóäåò ïðîèçâîäèòüñÿ çàìåíà.
 X - ïîäñòðîêà, êîòîðàÿ äîëæíà áûòü çàìåíåíà.
 Y - ïîäñòðîêà, íà êîòîðóþ áóäåò ïðîèçâåäåíà çàìåíåíà}

var
  buf1, buf2, buffer: string;
  i: Integer;

begin
  buf1 := '';
  buf2 := Str;
  Buffer := Str;

  while Pos(X, buf2) > 0 do
  begin
    buf2 := Copy(buf2, Pos(X, buf2), (Length(buf2) - Pos(X, buf2)) + 1);
    buf1 := Copy(Buffer, 1, Length(Buffer) - Length(buf2)) + Y;
    Delete(buf2, Pos(X, buf2), Length(X));
    Buffer := buf1 + buf2;
  end;

  Replace := Buffer;
end;

её просто удалить

[PhoeniX]

Ага, именно это с ней и надо сделать.

[Gudzik11]

ещё подскажите если картинка 150x150 а в программе
мне нужно в RxGIFAnimator 100x100 чтоб картинка сама по размеру подгонялась по ширине и высоте