Nombre componente en variable mas problemas

[santus]

Empezado por camino

Gracias eduarcol, coloque un label que me da exactamente lo que quiero. Comprobe que la variable VarEdit silleva el nombre del componente.



Código Delphi [-]


procedure TPuntodeVentaForm.Button1Click(Sender: TObject);
var
ComponentT : TComponent;
VarEdit : string;
begin
with datamodule2 do
begin
IbQuery3.Close;
IbQuery3.SQL.Clear;
IbQuery3.SQL.Add('Select * from MenuTeclas where Id_Producto <> 0');
IbQuery3.Prepare;
IbQuery3.Open;
if IbQuery3.EOF then
Exit;
IbQuery3.First;
while not IbQuery3.EOF do
begin
VarEdit := IbQuery3.FieldByName('Id_Tecla').AsString;
Label1.Caption := VarEdit; //AQUI EL NOMBRE DEL COMPONENTE
componentT := FindComponent(VarEdit) as TRichEdit;
if Assigned( componentT ) then
begin
with componentT as TRichEdit do
begin
TRichEdit(componentT).Clear;
TRichEdit(componentT).Lines.Add(IbQuery3.FieldByName('Linea1').asString);
TRichEdit(componentT).Lines.Add(IbQuery3.FieldByName('Linea2').asString);
TRichEdit(componentT).Lines.Add(IbQuery3.FieldByName('Linea3').asString);
TRichEdit(componentT).Lines.Add(IbQuery3.FieldByName('Linea4').asString);
end;
end
else
MessageDlg(VarEdit + ' No Asignado', mtwarning,[mbOk],0);
IbQuery3.Next;
end;
IbQuery3.Close;
end;
end;







Me pregunto, no habra que usar FindControl ademas?
sigo pidiendo ayuda.

Debes decirnos que error te tira porque la verdad que no veo que cosa puede estar mal.
Lo unico mejorable que veo en tu codigo puede ser :

componentT := FindComponent(VarEdit) as TRichEdit;

antes de asignarlo podrias preguntar algo como si realmente es un trichedit: algo como esto.

if (findComponet(VarEdit) is TrichEdit )  then Showmessage('Es un trichedit')
else Showmessage('Esto no parece ser un trichedit...');

fijate si esto te sirve.
Saludos.