Vergleich von Delphi und Visual C++ - Inhalt

Vergleich von Delphi und Visual C++ - Kapitel 2C
// Property Text gestattet Schreib- und
Text := 'Hallo';
// Lese-Zugriff
ShowMessage(Text);
Schreib_Text := 'Welt';
ShowMessage(Lies_Text);
// Fehler, da nur Lese-Zugriffe gestattet sind
Lies_Text := 'Guten Tag';
// Fehler, da nur Schreib-Zugriffe gestattet sind
ShowMessage(Schreib_Text);
Allen drei Properties liegt ein Feld (FText) in der Klasse zugrunde, aus dem gelesen bzw. in das geschrieben wird. Wenn einem Property
zum Lesen und Schreiben dasselbe Feld zugrunde liegt (wie bei Text), dann ist dieses Property eigentlich überflüssig, weil es nur den
Direktzugriff auf das Feld in der Klasse abfängt.
Sinnvollere Properties erhält man, wenn einer oder beiden Zugriffsarten (read / write) eine Methode zugrunde liegt. In dem Fall wird beim
Zugriff auf das Property automatisch die angegebene Methode aufgerufen, so daß durch das Auslesen bzw. das Zuweisen beliebig
komplexe Operationen in Gang gesetzt werden können.
MeineKlasse = class
// normales Feld in d. Klasse
FText: String;
// Methode
procedure SetText(Value: String);
property Text: String read FText write SetText;
end;
procedure MeineKlasse.SetText(Value: String);
begin
if Value FText then begin
// Wandlung in Großbuchstaben
FText:= AnsiUpperCase(Value);
// Fenstertext mit Windows-API - Funktion setzen
SetWindowText(MyWin.Handle, PChar(FText));
end;
end;
...
var MeinObj: MeineKlasse;
begin
MeinObj := MeineKlasse.Create;
MeinObj.Text := 'Hallo Welt';
end;
Als Ergebnis der Zuweisung an Property Text wird implizit die Methode SetText aufgerufen, die ihrerseits dem Feld FText den Wert
"HALLO WELT" zuweist. Derselbe Text erscheint zudem auch in der Überschrift-Zeile eines Fensters.
Die einem Property zugrundeliegenden Methoden müssen immer dieselbe Syntax aufweisen:
Lese-Methode
Schreib-Methode
function MethodenName: PropertyTyp;
procedure MethodenName(Value: PropertyTyp);
http://ourworld.compuserve.com/homepages/praxisservice/kapit2c.htm (31 of 33) [19.05.2000 15:30:15]