Bei TList, Record auf Datenänderung reagieren

[RWarnecke]

Hallo zusammen,

ich habe diesen Teil des Tutorial durchgelesen und auch gleich umgesetzt. Dabei habe ich folgende Deklaration :

Delphi-Quellcode:

type
  PGesellschaftsname = ^TGesellschaftsname;
  TGesellschaftsname = record
    StammNr            : Integer;
    Gesellschaftername : string;
    Zeichnungskapital  : Double;
    ZweiteZahlung      : TDateTime;
    ZahlenderBetrag    : Double;
  end;

var
  Gesellschafter      : PGesellschaftsname;
  GesellschafterListe : TList;

Das funktioniert alles soweit nach dem Tutorial. Nun stelle ich mir die Frage, wie kann ich jetzt auf Änderung in den Daten reagieren um diese Änderung dann in eine Datenbank zu schreiben ?

[taaktaak]

Moin Moin Rolf,
ich denke, ich habe diese Anforderung auch schon mal gehabt.Hier wurde mir geholfen

[RWarnecke]

Moin Moin Ralph,

danke erstmal für Deine Antwort. Nur verstehe ich noch nicht ganz wie mir das Beispiel weiterhelfen soll, da ich kein Grid habe, sondern nur verstreute Werte in der Anwendung. Diese verstreuten Werte sind lediglich nur in Editfeldern oder ListViews untergebracht.

[thkerkmann]

Hi,

wie wär's, wenn Du statt des Records eine Class mit Properties und Gettern und Settern verwendest, und dann ein OnChange Event implementierst ?

Gruss

[RWarnecke]

Zitat von thkerkmann:

Hi,

wie wär's, wenn Du statt des Records eine Class mit Properties und Gettern und Settern verwendest, und dann ein OnChange Event implementierst ?

Gruss

Hä und wie macht man das ? Hast Du dazu auch ein Tutorial ? Weil ich habe das bis jetzt noch nicht so bewusst gemacht.

Edit: Ok, jetzt weiß ich was Du meinst. Ich habe dabei nur ein Problem, wie verbinde ich eine Klasse mit TList, da ich durch die TList ja auch mehrere Werte speichern kann. Bei einer Klasse kann ich das ja so ohne weitere ja nicht oder ? Und dann kommt das zweite Problem, ich habe noch nie ein OnChange Event geschrieben.

[himitsu]

Zitat von thkerkmann:

wie wär's, wenn Du statt des Records eine Class mit Properties und Gettern und Settern verwendest, und dann ein OnChange Event implementierst ?

Man benötigt erstmal einen Einstiegspunkt, wo man auf eine Änderung reagieren kann.

Bei Records wird im Allgemeinen nur DIREKT der wert geändert und es gibt keine Möglichkeit über eine Änderung informiert zu werden (außer wenn den Speicherbereich sperrt, wo man sich bei Zugriff eine Systemexception auslösen lassen kann, welche man dann passend behandelt ... ist aber nicht grad optimal).

Alternativ kann man seit Delphi 2006 / TDE auch Records mit Properties versehen und hätte so dann den nötigen Einstiegspunkt, um sowas wie OnChange zu implementieren.

[thkerkmann]

Hi,

Das geht dann (fast) genauso, wie mit deinem Record. Du erstellst doch mehrere Records (z.B. mit Getmem) und fügst sie der Liste hinzu.
Erstelle stattdessen mehrere Instanzen der Klasse und füge sie der Liste hinzu.

Delphi-Quellcode:

type
  tMyClass = class
  private
    FWert: integer;
    FOnChange: tNotifyEvent;
    procedure SetWert(Value:integer);
    function GetWert:integer;
  public
    property Wert: integer read GetWert write SetWert;
    property OnChange: tNotifyEvent read FOnChange write FOnChange; 
  end;


procedure tMyClass.SetWert(Value:integer);
begin
  FWert := Value;
  if Assigned(FonChange) then
    FOnChange(Self);
end;

function tMyClass.GetWert:integer;
begin
  result := FWert;
end;

...

  aClass := tMyClass.Create;
  aClass.OnChange := WertAenderung;
  aList.Add(aClass);
...


procedure tMyForm.WertAenderung(Sender:tObject);
begin
  showmessage('aha es hat sich was geändert');
end;

und wenn es zum Aufräumen kommt, nicht vergessen die Objekte der Liste freizugeben. Nur nicht mit FreeMem, sondern mit Free.

P.S.
Jetzt kommen gleich wieder die Einwände eine TOjectList zu nehmen, weil man das dann der Liste überlassen kann, aber es geht hier um das Verständnis und nicht um die Eleganz.

[RWarnecke]

Hallo Thomas,

danke erstmal für Deine ausführliche Antwort. Ich werde mir jetzt mal Dein Beispiel zu gemüte führen und ausprobieren.

Zitat von thkerkmann:

... aber es geht hier um das Verständnis und nicht um die Eleganz.

Genau darum geht es.

[taaktaak]

Hallo Rolf,
naeher betrachtet geht es in dem Link ja um eine TList, dass Daten fuer ein Grid gespeichert werden ist eigentlich nebensaechlich. Um ueber Aenderungen informiert zu werden, wird fuer TList ein OnChange-Event implementiert. Aber es gibt ja nun schon einige andere Hinweise, die den gleichen / einen aehnlichen Weg aufzeigen.

[RWarnecke]

Ich habe das ganze jetzt mal umgebaut und ausprobiert nach dem Vorschlag von Thomas. Das mit dem Eintrag der Daten funktioniert so weit. Meine Deklaration sieht jetzt so aus :

Delphi-Quellcode:

type
  TGesellschaftsname = class
  private
    FOnChange           : TNotifyEvent;
    FStammNr            : Integer;
    FGesellschaftername : string;
    FZeichnungskapital  : Double;
    FZweiteZahlung      : TDateTime;
    FZahlenderBetrag    : Double;
    procedure SetStammNr(Value: Integer);
    procedure SetGesellschaftername(Value: String);
    procedure SetZeichnungskapital(Value: Double);
    procedure SetZweiteZahlung(Value: TDateTime);
    procedure SetZahlenderBetrag(Value: Double);
    function GetStammNr:Integer;
    function GetGesellschaftername:String;
    function GetZeichnungskapital:Double;
    function GetZweiteZahlung:TDateTime;
    function GetZahlenderBetrag:Double;
  public
    property StammNr            : Integer      read GetStammNr            write SetStammNr;
    property Gesellschaftername : string       read GetGesellschaftername write SetGesellschaftername;
    property Zeichnungskapital  : Double       read GetZeichnungskapital  write SetZeichnungskapital;
    property ZweiteZahlung      : TDateTime    read GetZweiteZahlung      write SetZweiteZahlung;
    property ZahlenderBetrag    : Double       read GetZahlenderBetrag    write SetZahlenderBetrag;
    property OnChange           : TNotifyEvent read FOnChange             write FOnChange;
  end;

var
  Gesellschafter      : TGesellschaftsname;
  GesellschafterListe : TList;

Nur kapiere ich das irgendwie mit dem Pointern noch nicht. Wie kann ich jetzt einen Wert aus der Klasse TGesellschaftsname auslesen ? Ich habe das vorher mit dem Record so gemacht :TGesellschaftsname(GesellschafterListe[LV_Gesellschaftsform.Selected.Index]^).Gesellschaftsname Nur mit der Klasse bekomme ich jetzt eine EAccessViolation. Wen ich jetzt hinten das Zeichen ^ weglasse passiert garnichts. Genauso mit dieser Zeile :TGesellschaftsname(GesellschafterListe.Items[LV_Gesellschaftsform.Selected.Index]).Gesellschaftername Was mache ich hier falsch ?