Delphi - MENSAJE PARA USUARIOS EXPERTOS!!!

Sabe alguien si desde delphi se puede hacer como en FoxPro por ejemplo.

Yo desde FoxPro para llamar a un procedimiento hago lo siguiente:
Prueba('edit1')

Prueba cEdit
thisform.&cEdit..text=''

Le puedo pasar dentro de una variable el nombre de un objeto y luego poniendo el & delante se puede llamar. Esto es porque si yo pongo solo cEdit quiere decir que cEdit vale 'edit1' pero si pongo &cEdit quiere decir que cEdit es edit1. Es como un puntero con el & es el valor no lo que contiene.

En Delphi puedes crear un procedimiento o función que reciba como parámetro un TEdit:

procedure Prueba(UnEdit: TEdit);

Y luego puedes realizar una llamada del estilo:

Prueba(Edit1);

Si quisieras pasar otro tipo de controles a tu procedimiento, podrías declarar el parámetro de una clase más genérica, por ejemplo TControl:

procedure Prueba(UnControl: TControl);
begin

if UnControl is TEdit then begin

//Hacer cosas cuando es un TEdit

end;{if is TEdit}

if UnControl is TComboBox then begin

//Hacer cosas cuando es un TComboBox

end;{if is TComboBox}

...
end;

Espero que esto te sirva de algo.

También podrías pasar a un procedimiento el nombre del componente, pero la programación sería más trabajosa y menos ortodoxa.

Se me olvidaba que, con la técnica que te explicaba en mi anterior mensaje, sólo te quedaría por hacer algo así:

procedure Prueba(UnControl: TControl);
begin

if UnControl is TEdit then begin

TEdit(UnContro).Text := 'Lo que quieras';

end;{if is TEdit}

end;

Saludos.

Lamentablemente eso q tu quieres q es usar MACROS, no se pueden usar en delphi, lo mas cercano q tienes el lo q te definio FER, a mi tambien me paso lo mismo, es increible la cantidad de codigo q te puedes ahorrar al usar macros, pero con el tiempo te acostumbras..

La otra alternativa es pasar un string con el nombre del contro y usar la funcion FindComponent.

Si q existen Macros en Delphi q ahorran escribir muchissimo codigo, se trata de la clase TAction y su hija TStandarAction, con TStandardAction se pueden hacer macros (actions) complejas predefinidas sin escribir codigo, van desde copiar/pegar hasta actualizar una tabla o borrar un registro, con TAction se pueden crear macros (actions) personalizadas una sola vez para utilizarlas las veces q queramos, lo q ahorra tener q repetirlo con cada control..