components valor para cruzar con campo

[vicentemadrid]

Hola de nuevo.

He probado:

cvalor:= (t as TdbEdit).text;


el error no sale pero cvalor siempre = ''

[Caminante]

Hola

Bueno yo supuse que el control era un TEdit; en tal caso eso ya lo resolviste.

Hice la prueba y me funciona correctamente.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  S:string;
  T:TComponent;
begin
  S:='Nada';
  T:=FindComponent('DBEdit1');
  if Assigned(t)then
    S:=(t as TDBEdit).Text;
  ShowMessage(S);
end;

[vicentemadrid]

Hola Caminante!!!

Perfecto!!!, estaba intentando leer el valor antes de "pintar" el formulario y por eso aparecía todo ' '.

Me has alegrado el fin de semana. Muchas gracias y hasta la próxima!!!!

ha sido un placer plantear mi primera consulta y tener una solución tan rápida.

Gracias!!!