Asignacion a un Variant

[[Al González]]

Hola gersonmaba.

Lo primero, decirte que siempre es importante poner el mensaje de error exacto que aparece en pantalla. Para errores de tiempo de ejecución, sólo tienes que presionar Ctrl+C cuando aparezca (de aparecer) y luego sencillamente lo colocas aquí con Ctrl+V.

El error, según puede verse en el código que has puesto —y que también es importante y agradezco (de agradecer)— es que con la sentencia:

Código Delphi [-]
TextDinamico.DataBinding.Field.Value:='valorBase';

se está intentando asignar un valor al campo que tenga asociado el control cx, objeto campo que en ese momento no es ninguno. Lo que me parece que quieres hacer (y hazlo) es asignar el nombre del campo que debe tener asociado. Es decir, la sentencia tendría que ser:

Código Delphi [-]
TextDinamico.DataBinding.DataField := NombreDeCampo;

Por último, sin pretender ser grosero, me gustaría decir que he puesto a propósito el texto que ves subrayado para hacer notar algo que puede ser útil ya sea a ti o a alguna de las demás personas que lo lean: Cuando un verbo en infinitivo termina en "cer", generalmente se cambia esa letra "c" por "z" (no por "s") en conjugaciones como "agradezco", "aparezca", "haz" (no de haber, sino de hacer), etc.

Espero quede solucionado el problema, e independientemente de ello tu retroalimentación.

Al González.
P.D. Ahora veo que ya has encontrado la solución.

[gersonmaba]

Hola Al González,

Muchisimas Gracias, por tu respuesta tan completa.

Y mil Gracias por la correccion de ortografia, la verdad tengo serios problemas con eso, lo tendre muy encuenta.

Gracias.

[gersonmaba]

Muchachos de nuevamente los saludo,

Debido a la forma en la que estoy creando objetos en tiempo de ejecución nacieron dos nuevas preguntas.
Como hago referencia a un objeto creado en tiempo de ejecución? , Es decir que cuando presionen un botón yo vaya y tome el valor que está en un objeto que cree en tiempo de ejecución..

Y la otra pregunta es, Como manejo o le asigno eventos a un objeto creado en tiempo de ejecicion, por ejemplo un onexit o un onchange.
Les agradezco cualquier tipo de colaboración.

Gracias

[gersonmaba]

Hola Muchahos, ya e avanzado un poco un la segunda pregunta, cuando estoy creado el objeto le asigno el evento.


TextDinamico.OnExit:= ComponentesOnExit();


Y obviamente creo el procedimiento previamente


procedure ComponentesOnExit(Sender: TObject);


Pero mi gran pregunta ahora es, como hacer referencia a las propiedades, del objeto del que envie el evento por ejemplo al name..o alguna otra propiedad.

procedure TFrm1.ComponentesOnExit(Sender: TObject);
begin
// aquí como hago referencia a las propiedades..por ejemplo al name, o al text o a cualquer otro
end;


Gracias

[ecfisa]

Hola.

Te pongo un ejemplo sencillo de como podés manejar los objetos creados en ejecución.

Código Delphi [-]
...
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Contnrs;

type
  TForm1 = class(TForm)
    btnLlama: TButton;
    procedure FormShow(Sender: TObject);
    procedure btnLlamaClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    FObjLst: TObjectList;
    function GetCmpt(AName: string): TComponent;
    procedure EditEnter(Sender: TObject);
    procedure EditExit(Sender: TObject);
  public
  end;

var
  Form1: TForm1;

implementation {$R *.dfm}

procedure TForm1.EditEnter(Sender: TObject);
begin
  ShowMessage('Edit Enter');
end;

procedure TForm1.EditExit(Sender: TObject);
begin
  ShowMessage('Edit Exit');
end;

{ Devuelve el componente dado el nombre }
function TForm1.GetCmpt(AName: string): TComponent; 
var
  i: Integer;
begin
  Result:= nil;
  for i:= 0 to FObjLst.Count -1 do
    if TEdit(FObjLst.Items[i]).Name = AName then
      Result:= TComponent(FObjLst.Items[i]);
end;

procedure TForm1.FormShow(Sender: TObject);
var
  TE: TEdit;
  i: Integer;
begin
  FObjLst:= TObjectList.Create;
  for i:= 1 to 5 do  // Crear 5 Edits
  begin
    TE:= TEdit.Create(Self);
    with TE do
    begin
      Name:= 'Edit'+IntToStr(i);
      Width:= 150;
      Height:= 25;
      Left:= 8;
      Top:= i*25+30;
      OnEnter:= EditEnter; // Asignar evento OnEnter
      OnExit:= EditExit;   // Asignar evento OnExit 
      Parent:= Self;
      FObjLst.Add(TE)
    end;
  end;
end;

procedure TForm1.btnLlamaClick(Sender: TObject);
var
  i: Integer;
begin
  // Poner Text = '' en los TEdits creados
  for i:= 0 to FobjLst.Count-1 do
   if Assigned(GetCmpt('Edit'+IntToStr(i+1))) then
     TEdit(GetCmpt('Edit'+IntToStr(i+1))).Text:= '';
  // Poner un texto en Edit1
  if Assigned(GetCmpt('Edit1')) then
    TEdit(GetCmpt('Edit1')).Text:= 'PRUEBA DE TEXTO';
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  FObjLst.Free;  // Liberar memoria
end;
...

Saludos.

[gersonmaba]

Hola, ecfisa

Muchas gracias, por tu colaboracion, Osea creo que entendi tu codigo, pero no veo la forma muy clara de adaptarlo a mi necesidad. para capturar una propiedad en un evento.

Código Delphi [-]
procedure TForm1.EditEnter(Sender: TObject);
 begin 

// como Capturo aqui por ejemplo el NAME o el TEXT del 
//objeto Edit en el cual se dio Enter. 

end;

[ecfisa]

Hola.

Código Delphi [-]
procedure TForm1.EditEnter(Sender: TObject);
begin
  with TEdit(Sender) do
    ShowMessage(Name + #10#13 + Text + #10#13 + ClassName + #10#13 + IntToStr(Left) + #10#13 +  // ...
    );
end;

Saludos.