Forum: Object-Pascal / Delphi-Language
Delphi
by RWarnecke,
18. Jun 2011
Ich gebe mich geschlagen. Auch wenn ich meine das Dein Vergleich ein bisschen hingt.
Forum: Object-Pascal / Delphi-Language
Delphi
by RWarnecke,
18. Jun 2011
Namen sind doch wie Schall und Rauch. Da ich alleine Programmiere, reichen mir die Namen so wie Sie sind. Deshalb habe ich ja die zweite Klasse auch noch mit einem Obj versehen, damit weiß ich dann, welches meine Klasse ist und welche meine TObjectlist ist.
Wenn ich aber die Property ModifyAction beim einzelnen Ansprechpartner-Objekt rausnehme funktioniert mein Aufruf wie in Beitrag #6...
Forum: Object-Pascal / Delphi-Language
Delphi
by RWarnecke,
18. Jun 2011
Hallo Stefan,
Nein,mein Programmcode muss nicht abwärtskompatibel sein.
In wie weit erleichtern die mir die Arbeit ?
Ich habe damals nach einer Möglichkeit gesucht, die Datenbank-Abfragen vom eigentlichen Programmcode zu trennen. Da bin ich auf die TObjectList mit einer Klasse gekommen und habe mir dieses Konstrukt zusammengebaut, welches auch recht zuverlässig funktioniert. Ich bin...
Forum: Object-Pascal / Delphi-Language
Delphi
by RWarnecke,
18. Jun 2011
Hallo zusammen,
danke erstmal für Eure Antworten. Ich habe den Fehler gefunden. Diese zwei folgenden Zeilen haben in den Set-Proceduren von TAnsprechpartnerListe gefehlt :
if (Assigned(FOnChange)) and (FModifyAction = lnChange) then
FOnChange(Self, Self);
Damit funktioniert jetzt alles so wie es soll. Eine vollständige Set-Procedure von TAnsprechpartnerListe sieht dann jetzt so...
Forum: Object-Pascal / Delphi-Language
Delphi
by RWarnecke,
18. Jun 2011
Hallo zusammen,
ich habe folgendermassen eine Klasse und eine TObjectList deklariert :
TModifyActionList = (lnNone, lnChange, lnDelete);
//
// Event zur Erstellung eines neuen Datensatzes für die Ansprechpartner
//
TAnsprechpartnerListe = class;
TAnsprechpartnerListeAddEvent = procedure(Sender: TObject; Gesellschafter: TAnsprechpartnerListe) of object;