XE/: StringList OnChange Ereignis reagiert nicht

[jaenicke]

Ich glaube nach der Schilderung nicht so recht, dass eine TStringList wirklich eine passende Lösung ist. Ich würde eine eigene Klasse erstellen, z.B. auch von TStringList abgeleitet. Die kannst du dann den anderen Objekten (Frames etc.) bei der Erstellung mitgeben (statt dass diese auf ein offenbar globales Datenmodul zugreifen müssen).

Im Setter des Zielobjekts, z.B. deines Frames, registriert sich der Frame dann für das OnChange. Das wiederum kann dann sinnvollerweise besser ein (selbst hinzugefügtes) Multicast-Event sein, an dem sich auch mehrere Listener registrieren können. Dann brauchst du dich nicht auf ein OnChange beschränken und alle können das Ereignis behandeln.

[Kralle]

Hallo Jaenicke,

Zitat von jaenicke:

Ich glaube nach der Schilderung nicht so recht, dass eine TStringList wirklich eine passende Lösung ist. Ich würde eine eigene Klasse erstellen, z.B. auch von TStringList abgeleitet. Die kannst du dann den anderen Objekten (Frames etc.) bei der Erstellung mitgeben (statt dass diese auf ein offenbar globales Datenmodul zugreifen müssen).

Im Setter des Zielobjekts, z.B. deines Frames, registriert sich der Frame dann für das OnChange. Das wiederum kann dann sinnvollerweise besser ein (selbst hinzugefügtes) Multicast-Event sein, an dem sich auch mehrere Listener registrieren können. Dann brauchst du dich nicht auf ein OnChange beschränken und alle können das Ereignis behandeln.

Deine Lösungsidee ist für mich Ein Böhmisches Dorf.

Sorry, aber das liegt ausserhalb dessen was ich weiß wie man es umsetzt.

Gruß HEiko

[Kralle]

Moin,

anbei mal eine abgespeckte Version dessen was ich mache mit den Kommentaren was nicht geht bzw. für das ich noch keine Lösung gefunden habe.

Gruß Heiko

[jaenicke]

Ich schaue es mir an sobald ich Zeit habe, bin erst einmal unterwegs.

[jaenicke]

Im Anhang mal eine funktionierende Variante.

Ich würde allerdings sehr dazu raten nicht eine einfache Stringliste zu nehmen. Viel einfacher sind echte Properties in der Datenklasse. Da ich nicht wusste was du da für Daten hast, konnte ich das schlecht passend umbauen. Beispiel:

Delphi-Quellcode:

type
  TExampleData = class
  private
    var
      FDisplayText: string;
  public
    property DisplayText: string read FDisplayText write FDisplayText;
  end;

// und dann benutzen:
// statt:
  FData.Strings[3] := 'bla';
// dann besser:
  FData.DisplayText := 'bla';

Auf die Weise hast du nicht irgendwelche Zeilen in einer Liste, sondern direkt die konkreten Bezeichnungen für die Daten...

Zum Speichern und Laden kannst du die Daten dann natürlich in eine TStringList schreiben, wenn du keine bessere Lösung (XML, eigenes Format, ...) benötigst.

[Kralle]

Hallo Jaenicke,

Zitat von jaenicke:

Im Anhang mal eine funktionierende Variante.

Danke. Da habe ich jetzt die nächsten Tage erstmal was zu lesen, analysieren und zu verstehen.

Gruß
Heiko