Prüfen ob in eine Variable geschrieben wurde

[DelphiFreund]

Hi Leute,
wie der Titel aussagt, muss ich wissen, wie ich auf das Ändern einer Variable reagieren kann. Also, wenn ich einem String den Wert "Hallo" gebe, muss eine Funktion, etc. aufgerufen werden. Ich weiss das es geht, denn ich habe es mal gelesen, leider finde ich es nicht mehr


Gruß DelphiFreund

[jfheins]

Das müsstest du mit einer Property realisieren ...
So einfach mit einer Variablen geht das nicht.

(Oder eine Funktion, die die Variable verändert usw. und dann benutzt du immer die ...)

[DelphiFreund]

Stimmt, es war etwas mit Property, ich weiss das das bei Komponenten verwendet wird, aber es muss auch so gehen, und mich würde sehr interessieren wie. Aber dein 2. Vorschlag ist einen Versuch wert, danke.


Gruß DelphiFreund

[glkgereon]

das ganze ginge dann so:

Delphi-Quellcode:

TMyClass=Class(TObject)
private
  FMyVariable: string;
  SetMyVariable(NewValue:string);
published
  property MyVariable: string read FMyVariable write SetMyVariable;
end;

implementation

procedure TMyClass.SetMyVariable(NewValue:string);
begin
  FMyVariable:=NewValue;
  //hier reagieren, z.b.
  ShowMessage('FMyVariable wurde geändert!');
end;

[DelphiFreund]

Bevor ich es vergesse, geht das auch mit anderen Typen, genauer gesagt auch Boolean? Das mit String war eigentlich nur als beispiel gedacht.

[glkgereon]

klar, einfach string überall durch boolean ersetzen

[jfheins]

Natürlich, das sahe dann in etwa so aus:

Delphi-Quellcode:

TMyClass=Class(TObject) 
private 
  FMyVariable: Boolean; 
  SetMyVariable(NewValue:Boolean); 
published 
  property MyVariable: Boolean read FMyVariable write SetMyVariable; 
end; 

implementation 

procedure TMyClass.SetMyVariable(NewValue:string); 
begin 
  FMyVariable:=NewValue; 
  //hier reagieren, z.b. 
  ShowMessage('FMyVariable wurde geändert!'); 
end;

[glkgereon]

in der procedure den parameter auf boolean setzen, dann stimmts

[DelphiFreund]

Ich hab das mal schnell ausprobiert, dann bekam ich folgende Fehlermeldung:

[Fehler] Unit1.pas(41): Inkompatible Typen: 'Enumeration' und 'String'

Mit allem außer Enumeration kann ich etwas anfangen, aber das hab ich noch nicht gehört. Was kann ich dagegen tun?


Gruß DelphiFreund

[jfheins]

Es wäre hilfreich, zumindest die Zeilen 39-43 zu sehen ...