Cómo prescindir del "casting" de tipos

[[coso]]

Hola, puedes modificar la funcion usando las TPersistentClass (link). No se bien bien como se haria, pero me da que puede hacerse. Por otra banda, no le encuentro mucho la utilidad , esto es, con el typecast al tobject te iria de perlas...

[Neftali [Germán.Estévez]]

Tal cual lo tienes, yo también creo que no se puede hacer, aunque tampoco entiendo muy bien a dónde quieres ir a parar.

Utiliza tags cuando añadas código delphi a los mensajes.

Un saludo.

[mamcx]

La unica via que veo es usar Generic y/o incorporar un lenguaje de script y evaluar dinamicamente.

Aunque el estilo por si mismo tiene su uso, tanto que en lenguajes dinamicos es la norma, igual que los otros me pregunto que es lo que buscas.

[[coso]]

rectifico, creo que no puede hacerse, a no ser que hagas un monton de overloads y pases antes que clase es como un parametro. O bien que uses olevariants, pues el compilador no revisa sus metodos, aunque ya te puedes imaginar que ese esfuerzo no valdria la pena saludos.

[Luis_264]

mmm okk graxx ps solo lo keria para simplificar mi codigo =D pero si ya veo ke asi se va a complicarr mass =D ok grax detodos modos

[[Lepe]]

No sé, pero si no son muchas clases, con los overloads podrías hacerlo, o ya puesto con funciones:

Código Delphi [-]

function tform1.obja(cep:string):Tcomponent;
begin
  result := findcomponent(cep);
end;

function tform1.obja(cep:string):TEdit;
begin
   result := TEdit(findcomponent(cep));
end;

function tform1.obja(cep:string):TOpenDialog;
begin
   result := TOpenDialog(findcomponent(cep));
end;

o hacer una clase que lo englobe todo:

Código Delphi [-]
TBusca = class(TObject)
private
   encontrado:TComponent;
  procedure SetName(Value:String);
public
    ComponentName:string read FName write SetName;
    function AsEdit:TEdit;
    function AsOpenDialog:TOpenDialog;
end

implementation 

procedure TBusca.SetName(Value:string);
begin 
   encontrado := Form1.Findcomponet(value);
end;

function TBusca.AsEdit:TEdit;
begin
   if Assigned(encontrado) then
     result := TEdit(encontrado)
  else
    result := nil;
end;

function TBusca.AsOpenDialog:TOpenDialog;
begin
   if Assigned(encontrado) then
     result := TOpenDialog(encontrado)
  else
    result := nil;
end;