Pasar Nombre de componenete como parametro de una funcion

[ecfisa]

Hola dandyuno, bienvenido a los foros de Club Delphi y como es costumbre con los ingresantes, te sugerimos leer nuestra guía de estilo.

Según entiendo de tu consulta, deberías declarar la función así:

Código PHP:

void barras(AnsiString dato, TImage* img) 
{
  img->Picture->LoadFromFile(dato);
  //...
} 


Ejemplo de uso:

Código PHP:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  barras("C:\\Carpeta\\a.jpg", Image1);
  barras("C:\\Carpeta\\b.bmp", Image2);
  barras("C:\\Carpeta\\c.jpg", Image3);
} 


Saludos