Foros Club Delphi - Crear Campo Calculado

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Crear Campo Calculado (https://www.clubdelphi.com/foros/showthread.php?t=9059)

yusnerqui

13-04-2004 15:30:15

Crear Campo Calculado

Saludos amigos.
Como creo un campo calculado sin usar el cuadro de diálogo New Field, probé algo así pero me dá error.

if TablaName = 'Maestro' then
begin
A := TField.Create(Tabla);
A.Calculated :=true;
A.FieldName := 'Edad';
A.SetFieldType(ftBytes);
A.DisplayWidth:= 50;
a.Index := 1;
Tabla.Fields.Add(A);
end;

Es que uso el mismo KadaoTable para varias táblas y a la tabla Maestro de trabajadores necesito calcularle la edad.

Gracias por su ayuda. un saludo

marcoszorrilla

13-04-2004 16:04:58

Prueba con este ejemplo:

Código:

var

  f: TField;

  i: Integer;

begin

 table1.FieldDefs.Update

  Table1.Close;

  for i := 0 to Table1.FieldDefs.Count - 1 do

   {create persistent field that does not exist}

    if table1.FindField(table1.FieldDefs[i].Name) = nil then 

      table1.FieldDefs.Items[i].CreateField(Table1);

    {create a calculated field}

    f := TStringField.Create(Table1);

    f.Name := 'Table1CalcField';

    f.FieldName := 'CalcField';

    f.DisplayLabel := 'CalcField';

    f.Calculated := True;

    f.DataSet := Table1;

   Table1.Open;

end;

Un Saludo.

yusnerqui

13-04-2004 16:54:58

Gracias

Me funciona correctamente, gracias por tu habitual ayuda Román.

Ja ja ja :D Solo era una broma Marcos, recordando el día que me equiboqué de nombre y protestaste.

Un saludo

La franja horaria es GMT +2. Ahora son las 09:20:46.