Forum: Object-Pascal / Delphi-Language
Delphi
by himitsu,
31. Mär 2006
Na dann laß doch das WRITE einfach weg
property Stopwords: TStringList read FStopwords;
und Leite das Ereignis OnChange von FStopwords auf eine Funktion um, welche dann die Datenbank aktualisiert.
Irgendwie so?
Constructor MyClass.Create;
Begin
Inherited;
FStopwords := TStringList.Create;
FStopwords.OnChange := @Self.WriteStopwordlist;
Forum: Object-Pascal / Delphi-Language
Delphi
by himitsu,
31. Mär 2006
Wie sniper_w schon sagte, wird bei dir nur READ aufgerufen, da du ja ein Unterelement des Objekts nurtzt, wozu es erstmal ausgelesen (per READ) wird und dann dessen Prozedure aufgerufen wird.
Du müßtest z.B. eine eigene Add-Prozedure erstellen, welche intern FStopwords.ADD aufruft ... z.B.
Procedure TMyClass.StopwordsAdd(S: String);
Begin
FStopwords.ADD(S);
End;
// und so dann...