Hi,
irgentwie ist es ja so, wenn du meine erste Variante verwendest.
Delphi-Quellcode:
public
property Doc_Type:String read p_Doc_Type write p_Doc_Type;
Hier wird auch direkt zugewiesen.
Wenn du jetzt aber anstatt write p_Doc_Type eine Procedure verwenden kannst, dann muß das ja einen Sinn haben.
Der Sinn ist dabei, dass du den zugewiesenen Wert weiterverarbeiten kannst.
Mal ein praktisches Beispiel.
Du benutzt irgentwo in deinem Object eine Variable die einen Zeitwert beinhaltet. Zum Beispiel für einen Timer. Nun erwartet der Timer einen Wert für millisekunden. Da jeder Otto-Normalverbraucher mit Sekunden besser klar kommt willst du ihm die Möglichkeit geben auch Sekunden einzugeben und dann, wenn ein Zugriff an Mehreren Stellen deines Programms erfolgt nicht jedes mal daran denken müssen vor der Zuweisung umzurechnen (also immer wieder im Hauptprogramm Wert*1000 zu schreiben).
Hier macht die Procedure hinter write richtig Sinn.
Bsp.:
Delphi-Quellcode:
procedure Setze_Sekunden(Value : Longint);
begin
P_Meine_Millisekunden := Value*1000;
end;
Das gleiche funzt natürlich auch für read mit einer Funktion:
Delphi-Quellcode:
Function Lese_Sekunden: Longint;
begin
Result := Trunc(P_Meine_Millisekunden/1000);
end;
Gut, ich hoffe, dass hat geholfen.
Gruß oki