Pascal/Delphi Passar Record para TObject

[jeffersoncg]

Boa tarde, estou tendo uma dificuldade de criar um Obejeto no delphi, preciso achar um jeito fácil de chamar esse objeto, preferencialmente através do "FindComponent", mas não sei ao certo como fazer a criação de objetos, tentei de varias formas  e em todas me resultou erro.

 

O record que tenho é o seguinte:

 

type
  TFiltroComboBox = record
    Itens: TStringList;
    Ids: TStringList;
    procedure Create;
    procedure Free;
    procedure Clear;
    procedure Adicionar(Texto: string; Id: Integer);
    procedure Remover(Index: Integer);
    function Count: Integer;
    function Created:Boolean;
  end;

 

Estou usando a função "Create" apenas para inicializar as TStringList, a free para limpar o record, e a Clear somente para zerar as TStringList.

 

Seria possivel passar isso para TObject?

Ai quando eu precisasse localiza-lo pelo nome, eu apenas faria "Form.FindComponent('Component')".

 

Realmente agradeço a ajuda, estou tentando otimizar o codigo do meu sistema, e a localização dos componentes vai me ajudar muito nisso, já que eu estou sempre indicando o record manualmente em cada uso, sendo que eu poderia padronizar os nomes dos components e fazer a busca pelo nome, assim chegando ao objeto que quero.

 

[Fazzioni]

 

 

@jeffersoncg  ai você precisa instanciar como Tcomponent

 

15 horas atrás, jeffersoncg disse:

O record que tenho é o seguinte:

 

type
  TFiltroComboBox = record
  end;

 

 

exemplo:

 

type
  Tcomp = class (TComponent)
  private
    propri: String;
end;

procedure TForm1.test;
var
 	com : Tcomp;
begin
	com := Tcomp.Create(self);
	com.propri := 'my variable';
	com.Name := 'com';
	ShowMessage( Tcomp(FindComponent('com')).propri);
end;

 

 

 

 

[jeffersoncg]

2 horas atrás, Fazzioni disse:

 

 

@jeffersoncg  ai você precisa instanciar como Tcomponent

 

 

exemplo:

 

type
  Tcomp = class (TComponent)
  private
    propri: String;
end;

procedure TForm1.test;
var
 	com : Tcomp;
begin
	com := Tcomp.Create(self);
	com.propri := 'my variable';
	com.Name := 'com';
	ShowMessage( Tcomp(FindComponent('com')).propri);
end;

 

 

 

 

 

Muito obrigado Fazzioni,  deu certinho, passei boa parte dos itens para FindComponent, já que as telas de busca/filtro são as mesmas e eu ficava copiando e colando o codigo em todos os Form's, agora tenho apenas no form "Modulo", e nas outras apenas seguem com o mesmo nome e o codigo identifica qual objeto chamar. Obrigado de verdade amigo.