F�rum Herdando a classe TStringField #613988

02/02/2021

Codifiquei uma classe descendente de TStringField onde modifico o m�todo GetAsAnsiString para resultar em dados an�nimos.
Por�m, meu c�digo � usado apenas quando declaro campos persistentes no Editor de Campos do TOraQuery. Se eu n�o declarar os campos persistentes, minha implementa��o n�o � utilizada.

Preciso que o comportamento seja o mesmo, independente do TOraQuery ter campos persistentes ou n�o.
Algu�m poderia me ajudar por favor?

unit AnonymousFields;

interface

uses  DB, Sysutils, Classes;

type

  TStringField = class(DB.TStringField)
  public
    //function GetValue(var Value: AnsiString): Boolean;
    function GetAsAnsiString: AnsiString; override;
  end;

  TWideStringField = class(TStringField)
  public
    //function GetValue(var Value: AnsiString): Boolean;
    function GetAsString: string; override;
    function GetAsAnsiString: AnsiString; override;
    function GetAsWideString: UnicodeString; override;
  end;

  TDateTimeField = class(DB.TDateTimeField)
  public
    function GetAsString: string; override;
    function GetAsDateTime: TDateTime; override;
    procedure GetText(var Text: string; DisplayText: Boolean); override;
  end;

implementation



{ TStringField }

function TStringField.GetAsAnsiString: AnsiString;
begin
  inherited;
  Result := '$$$$$$$$$$';
end;

{ TWideStringField }

function TWideStringField.GetAsAnsiString: AnsiString;
begin
  inherited;
  Result := '##########';
end;

function TWideStringField.GetAsString: string;
begin
  inherited;
  Result := '##########';
end;

function TWideStringField.GetAsWideString: UnicodeString;
begin
  inherited;
  Result := '##########';
end;

{ TDateTimeField }

function TDateTimeField.GetAsDateTime: TDateTime;
begin
  inherited;
  Result := 0;
end;

function TDateTimeField.GetAsString: string;
begin
  inherited;
  Result := '**********';
end;

procedure TDateTimeField.GetText(var Text: string; DisplayText: Boolean);
begin
  inherited;
  text := '**/**/****';
end;

end.

Mauro Pereira

Curtir t�pico

+ 0

Responder