[JunkieBeat]

Доброго времени суток)
Не как не могу сделать процедуру что бы в качестве входных данных можно было указывать номер компонента(Это всегда будет TImageX) и форму на которой он находиться.Вот моя процедура
procedure LoadAva (ImageName:string;FormNumber:TForm;ImageNumber:TIm age);//вот я её объясил

Код:

procedure TForm1.LoadAva(ImageName: string; FormNumber: TForm; //Тело
  ImageNumber: TImage);
begin
   If FileExists(Serverdir+imageName+'.bmp') then
  begin
    Form1[FormNumber].Image[ImageNumber].Picture.LoadFromFile(Serverdir+imageName+'.bmp');
  end
 else
  begin
      If FileExists(Serverdir+'DefaultAvatar.bmp') then
     begin
       Form[FormNumber].Image[ImageNumber].LoadFromFile(Serverdir+'DefaultAvatar.bmp');
     end;
  end;
end;

lmikle: Пользуемся тегами!

Сори если мимо написал