Encuesta Delphi para 2008 - Participe!!!!!!!!!!!!

[axesys]

Hola Al,

Por lo que e leído sobre la herencia insertada que hablas según yo eso lo puedes hacer con los class helpers, puedes ver este video para que veas como

Class Helpers: Friend or Foe

Este es un ejemplo de como yo las estoy aplicando

Código Delphi [-]
unit udtsHelper;

interface

uses
  Classes, pFibDataSet;

type
  TFibDatasetHelper = class helper for TpFibDataSet
  public
    function CampoNombreCadena(sCampo: String): String;
    function CampoNombreEntero(sCampo: String): integer;
    function CampoNombreFlotante(sCampo: String): double;
    function CampoNombreFecha(sCampo: String): TDateTime;
    function CampoCadena(iIndice: integer): String;
    function CampoEntero(iIndice: integer): integer;
    function CampoFlotante(iIndice: integer): double;
    procedure CampoNombreBlob(sCampo: String; var strContenido: TMemoryStream);

    procedure CampoNombre(sCampo, sValor: string); overload;
    procedure CampoNombre(sCampo: string; iValor: Integer); overload;
    procedure CampoNombre(sCampo: string; dValor: Double); overload;
    procedure CampoNombre(sCampo: string; dtValor: TDateTime); overload;

    procedure ParametroNombre(sCampo, sValor: string); overload;
    procedure ParametroNombre(sCampo: string; iValor: Integer); overload;
    procedure ParametroNombre(sCampo: string; dValor: Double); overload;
    procedure ParametroNombre(sCampo: string; dtValor: TDateTime); overload;
  end;

implementation

uses
  DB;

{ TFibDatasetHelper }

function TFibDatasetHelper.CampoNombreCadena(sCampo: String): String;
begin
  Result:= FieldByName(sCampo).AsString;
end;

function TFibDatasetHelper.CampoNombreEntero(sCampo: String): integer;
begin
  Result:= FieldByName(sCampo).AsInteger;
end;

function TFibDatasetHelper.CampoNombreFlotante(sCampo: String): double;
begin
  Result:= FieldByName(sCampo).AsFloat;
end;

function TFibDatasetHelper.CampoNombreFecha(sCampo: String): TDateTime;
begin
  Result:= FieldByName(sCampo).AsDateTime;
end;

procedure TFibDatasetHelper.CampoNombre(sCampo: string; iValor: Integer);
begin
  FieldByName(sCampo).AsInteger:= iValor
end;

procedure TFibDatasetHelper.CampoNombre(sCampo, sValor: string);
begin
  FieldByName(sCampo).AsString:= sValor
end;

procedure TFibDatasetHelper.CampoNombre(sCampo: string; dtValor: TDateTime);
begin
  FieldByName(sCampo).AsDateTime:= dtValor
end;

procedure TFibDatasetHelper.CampoNombre(sCampo: string; dValor: Double);
begin
  FieldByName(sCampo).AsFloat:= dValor
end;

procedure TFibDatasetHelper.CampoNombreBlob(sCampo: String; var strContenido: TMemoryStream);
var
  fldCampo: TField;
  strStream: TStream;
begin

  if(not FieldByName(sCampo).IsNull) then
  begin
    fldCampo:= FieldByName(sCampo);
    strStream:= CreateBlobStream(fldCampo, bmRead);
    strContenido.CopyFrom(strStream, strStream.Size);
  end
  else
    strContenido.Clear;
end;

procedure TFibDatasetHelper.ParametroNombre(sCampo: string; iValor: Integer);
begin
  ParamByName(sCampo).AsInteger:= iValor
end;

procedure TFibDatasetHelper.ParametroNombre(sCampo, sValor: string);
begin
  ParamByName(sCampo).AsString:= sValor
end;

procedure TFibDatasetHelper.ParametroNombre(sCampo: string; dtValor: TDateTime);
begin
  ParamByName(sCampo).AsDateTime:= dtValor
end;

procedure TFibDatasetHelper.ParametroNombre(sCampo: string; dValor: Double);
begin
  ParamByName(sCampo).AsDouble:= dValor
end;

function TFibDatasetHelper.CampoCadena(iIndice: integer): String;
begin
  Result:= Fields[iIndice].AsString;
end;

function TFibDatasetHelper.CampoEntero(iIndice: integer): integer;
begin
  Result:= Fields[iIndice].AsInteger;
end;

function TFibDatasetHelper.CampoFlotante(iIndice: integer): double;
begin
  Result:= Fields[iIndice].AsFloat;
end;

end.

[Lord Delfos]

Sí. Interesante encuesta.

Hay unas cuantas preguntas relacionadas con cosas linuxeras...

¿Estarán pensando en resucitar Kylix... Sería bueno, ¿no?

Por cierto. ¿Vieron el roadmap de Delphi? Roadmap Delphi

[Casimiro Noteví]

Empezado por Lord Delfos

Sí. Interesante encuesta.
Hay unas cuantas preguntas relacionadas con cosas linuxeras...
¿Estarán pensando en resucitar Kylix... Sería bueno, ¿no?
Por cierto. ¿Vieron el roadmap de Delphi? Roadmap Delphi

Sí, eso parece, que están "tanteando" al personal

Estaría muy bien, pero open source, para que la comunidad de programadores en Linux pudieran ampliarlo, mejorarlo, etc. que sería algo bueno incluso para ellos mismos al poder incorporar en nuevas versiones las cosas más interesantes creadas por terceros. Sería una especie de "retroalimentación" y además gratuita, no les costaría nada.
El que sea open source no quiere decir que tengan que regalarlo, sin más. Pueden venderlo a precios asequibles (he dicho asequibles, no os paséis, que luego pasa lo que pasa ). Y con el pago pueden ofrecer algunos extras... que ya se vería qué puede ser.
Es que es una pena que lo tengan abandonado, da una sensación de "la maté porque es mía", o "si no es para mí, no será para nadie".
Si todos estos años, en lugar de "esconderlo", lo hubieran liberado, hoy, seguro, que sería uno de los programas más usados por los programadores linux.
¡¡¡Señores de Codegear, piénsenlo!!!

[[Al González]]

¡Hola a todos!

Un saludo desde Fortín (Córdoba, Veracruz). Afuera se oyen cantar los gallos y trinar los pájaros entre las palmas, y huele a tierra mojada, la neblina ya se disipó, el Sol está increíble, ¡qué delicia! . Les manda saludos FGarcia, espero conocer hoy a AzidRain también, si es que no anda fuera de la ciudad.

Empezado por axesys

Hola Al,

Por lo que e leído sobre la herencia insertada que hablas según yo eso lo puedes hacer con los class helpers...

Código Delphi [-]
...
  TFibDatasetHelper = class helper for TpFibDataSet
  public
    function CampoNombreCadena(sCampo: String): String;
    function CampoNombreEntero(sCampo: String): integer;
    function CampoNombreFlotante(sCampo: String): double;
    function CampoNombreFecha(sCampo: String): TDateTime;
    function CampoCadena(iIndice: integer): String;
    function CampoEntero(iIndice: integer): integer;
    function CampoFlotante(iIndice: integer): double;
    procedure CampoNombreBlob(sCampo: String; var strContenido: TMemoryStream);

    procedure CampoNombre(sCampo, sValor: string); overload;
    procedure CampoNombre(sCampo: string; iValor: Integer); overload;
    procedure CampoNombre(sCampo: string; dValor: Double); overload;
    procedure CampoNombre(sCampo: string; dtValor: TDateTime); overload;

    procedure ParametroNombre(sCampo, sValor: string); overload;
    procedure ParametroNombre(sCampo: string; iValor: Integer); overload;
    procedure ParametroNombre(sCampo: string; dValor: Double); overload;
    procedure ParametroNombre(sCampo: string; dtValor: TDateTime); overload;
  end;
...

¡Hola Arturo! Conozco el concepto de ayudantes de clases (o clases ayudantes, como a veces les llaman). Sin embargo, como lo tengo entendido, en ellas no pueden definirse nuevos campos, y hasta cierto punto se comprende, por la razón de que afectaría al tamaño "preconcebido" de las instancias. Mi propuesta de herencia insertada es poder definir una clase "normal" como derivada de otra, pero haciendo que el compilador la "inserte" en medio de una jerarquía de clases ya definida.

Algo como:

TDataSet
|
TNewDataSet <---- (clase "insertada")
|
Todos/varios descendientes actuales de TDataSet
(como TpFibDataSet, TADOTable, TIBQuery, etc.)

Definiendo en la clase insertada TNewDataSet nuevos campos, propiedades y métodos (como tus CampoCadena, CampoNombre y ParametroNombre).

La ventaja es que le darías herencia adicional/enriquecida automática a todo un grupo de clases existentes en bibliotecas como la VCL, sin tener que modificar el código fuente de éstas. Además del beneficio polimórfico que eso conlleva. Incluso evitaría el clásico recurso de las interfaces usadas para agregar metodología común a un grupo de clases dispersas. ¿Se comprende la utilidad? ¿Qué opinan?

Alguna vez Román, en otro hilo similar, comentó algo acerca de que Java Script tenía ya esta útil característica, pero personalmente no la he revisado.

Sé que tiene implicaciones técnicas en contra, pero creo que valdría la pena que los fabricantes de compiladores como CodeGear y Microsoft evaluaran la posibilidad de incluir esta característica en sus lenguajes.

Un abrazo eficaz.

Al González.