TDBMEMO mit eigener Textanzeige

[bernhard_LA]

wenn ich von Tmemo ableite , wie bekommme ich mit, daß sich Z.B. der Datensatzzeiger geändert hat ?
welche Events muss ich hier implementieren ?

[mkinzler]

Dann würde ich dies beim Lesen aus dem Datenbankfeldes machen (Event OnGetText von TField).

[bernhard_LA]

kann ich Unterstützung bekommen damit meine Komponente auf Änderunegn in der Datenmenge richtig reagiert ?


unit Unit_DBmemoS;


interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB;

Delphi-Quellcode:

type
  TDBmemoS = class(TMemo)
  private

    { Private-Deklarationen }

    Fdatasource : Tdatasource ;

    FdataField : String;

    procedure Setdatasource(const Value: Tdatasource);
    procedure SetdataField(const Value: String);

  protected
    { Protected-Deklarationen }

  public
    { Public-Deklarationen }

  published
    { Published-Deklarationen }


  property datasoure : Tdatasource  read  Fdatasource  write  Setdatasource ;

  property dataField : String read  FdataField  write  SetdataField ;
  end;

procedure Register;

implementation


procedure Register;
begin
  RegisterComponents('TOOLS', [ TDBmemoS]);
end;





procedure TDBmemoS.SetdataField(const Value: String);
begin
  FdataField := Value;
end;

procedure TDBmemoS.Setdatasource(const Value: Tdatasource);
begin
  Fdatasource := Value;
end;

end.

[mkinzler]

Du brauchst eigentlich kein neues TDBMemo, sondern musst nur auf den Leseevent reagieren und dort die Entschlüsselung durchführen.

[bernhard_LA]

wie müsste dies aussehen ? ich benötige ein paar Infos über die mögliche Implementierung

[mkinzler]

Im dataSet hast du ja Felder angelegt, diese haben jeweils einen den genannten Event OnGetText. Wenn du die Property mit einen Eventhandler belegst, dann wird dieser bei jedem Lesevorgang auf das DataSet (TDBMemo, TDBEDit, DataSet.FiledByName(), ...) aufgerufen und Du kannst dort das Ergebnis manipulieren ( z.B. entschlüsseln).

Delphi-Quellcode:

procedure <TDataModule>.FieldGetText(Sender: TField; var Text: string;
  DisplayText: Boolean);
begin
  Text := Entschluesseln( Sender.Value);
end;

Du kannst die Methode an alle Felder hängen.

Delphi-Quellcode:

for i:=0 to <DataSet>.Field.Count-1 do
begin
  <DataSet>.Field[i].onGetText := FieldGetText;
end;

[bernhard_LA]

wäre dies dann ein class helper für TDataset ?