jejeje. siempre hay alguien en busca una respuesta y estas son las primeras en salir y sin concluir. Pero para que veas hay un tema que cada año alguien le agrega algo y creo llevan 10 años en eso.
reviven el link cada año.
Código Delphi
[-]
procedure TForm1.Button2Click(Sender: TObject);
var
T: TStringField;
begin
Query1.Close;
T := TStringField.Create(Self);
T.FieldName := 'CO_NAME';
T.Name := Query1.Name + T.FieldName;
T.Index := Query1.FieldCount;
T.DataSet := Query1;
Query1.FieldDefs.UpDate;
Query1.Open;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
TC: TComponent;
begin
TC := FindComponent('Query1CO_NAME');
if not (TC = nil) then begin
Query1.Close;
TC.Free;
Query1.Open;
end;
end;