-
Forum: Object-Pascal / Delphi-Language
Delphi
by RWarnecke,
26. Jan 2010
Ich habe doch nochmal eine Frage zu Notify. Ich habe die Procedure genau so geschrieben wie Du in Deinem Beitrag. Wenn ich jetzt in dem ChangeEvent die Werte mitprotokollieren, sind alle Werte aus der Klasse leer. Entferne ich die Abfrage auf die Action, dann bekomme ich in dem Protokoll erst die leeren Werte angezeigt und danach dann die Werte die ich eingefügt habe in umgekehrter Reihenfolge....
-
Forum: Object-Pascal / Delphi-Language
Delphi
by RWarnecke,
26. Jan 2010
Ok, den Teil mit dem Notify habe ich kapiert, hoffe ich. :?
Wäre das sowas wie in Beitrag #16 von wicht ?
-
Forum: Object-Pascal / Delphi-Language
Delphi
by RWarnecke,
26. Jan 2010
Hallo himitsu,
ich kann Dir leider nicht ganz folgen mit dem Notify. Kannst Du mir das bitte mal an einem praktischen Beispiel erklären ?
-
Forum: Object-Pascal / Delphi-Language
Delphi
by RWarnecke,
26. Jan 2010
So sieht mein Versuch aus. Nur leider schaffe ich es nicht,
TGesellschafterChangeEvent = procedure(Sender: TObject; Obj: TGesellschaftsname) of object;
TGesellschafterObjListe = class(TObjectList)
private
FOnChange : TGesellschafterChangeEvent;
protected
function getItem(Index: Integer): TGesellschaftsname; virtual;
procedure setItem(Index: Integer; Objekt:...
-
Forum: Object-Pascal / Delphi-Language
Delphi
by RWarnecke,
1. Jan 2010
Moin Ralph und frohes neues Jahr, kurz gefragt, wie schreibt man sich sein eigenes Event ? Stecke nämlich noch in den Kinderschuhen bei solchen Sachen. Geht das vielleicht in Richtung Windows Messages ?
-
Forum: Object-Pascal / Delphi-Language
Delphi
by RWarnecke,
31. Dez 2009
Hallo Alexander,
leider komme ich mit Deinem Beispiel nicht ganz klar. Dort tauchen zu viele Fehler auf. Deshalb habe ich mich jetzt mal selber dran versucht und bin zu folgendem Ergebnis gekommen :
type
TForm8 = class(TForm)
Btn_3: TButton;
procedure Btn_3Click(Sender: TObject);
private
{ Private declarations }
-
Forum: Object-Pascal / Delphi-Language
Delphi
by RWarnecke,
28. Dez 2009
Hallo Michael,
danke für Deine Hilfe. Ich habe mittlerweile die Lösung selber gefunden. In der TList war überall der letzte Datensatz gespeichert. Das lag daran, dass ich die Klasse nicht für jeden Eintrag neu erstellt habe.
Wie ich das Problem gelöst hatte, habe ich mich noch in die TObjectList eingelesen und nun darauf alles umgestellt. Die TObjetList funktioniert sogar noch ein bisschen...
-
Forum: Object-Pascal / Delphi-Language
Delphi
by RWarnecke,
27. Dez 2009
Ja das stimmt. Bei mir ist alles über mehrere Ereignisse von Komponenten verteilt. Deshalb habe ich nur die Deklaration geschrieben.
Das ist auch richtig so. nach dem Add werden dann die Werte den einzelnen Properties der Klasse zuegordnet.
Dann sollten die folgende Zeile ja eigentlich funktionieren :
with TGesellschaftsname(GesellschafterListe) do
begin
Edit1.Text :=...
-
Forum: Object-Pascal / Delphi-Language
Delphi
by RWarnecke,
27. Dez 2009
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 :
type
TGesellschaftsname = class
private
FOnChange : TNotifyEvent;
FStammNr : Integer;
FGesellschaftername : string;
FZeichnungskapital : Double;
FZweiteZahlung :...
-
Forum: Object-Pascal / Delphi-Language
Delphi
by RWarnecke,
27. Dez 2009
Hallo Thomas,
danke erstmal für Deine ausführliche Antwort. Ich werde mir jetzt mal Dein Beispiel zu gemüte führen und ausprobieren.
Genau darum geht es.
-
Forum: Object-Pascal / Delphi-Language
Delphi
by RWarnecke,
27. Dez 2009
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...
-
Forum: Object-Pascal / Delphi-Language
Delphi
by RWarnecke,
27. Dez 2009
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.
-
Forum: Object-Pascal / Delphi-Language
Delphi
by RWarnecke,
27. Dez 2009
Hallo zusammen,
ich habe diesen Teil des Tutorial durchgelesen und auch gleich umgesetzt. Dabei habe ich folgende Deklaration :
type
PGesellschaftsname = ^TGesellschaftsname;
TGesellschaftsname = record
StammNr : Integer;
Gesellschaftername : string;
Zeichnungskapital : Double;