Hi Dickmann
Waren die Kommentare auf deinen ersten Post wirklich so schlimm? Na gut, vielleicht hat ja auch deine Farbenfreude mit dazu beigetragen
Um auf deine Frage zu kommen:
Eine der Vorteile von Klassen ist, dass man sie gegenüber der "Aussenwelt" kapseln kann. Eine Möglichkeit um auf deine Variablen zugreifen zu können wäre, sie als Property zu deklarieren.
Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26:
| type
T_Erster = class published property ax: extended read faX write SetAx; property ay: extended read faY write SetAy; private faX,faY : extended; procedure SetAx(Value: extended); procedure SetAy(Value: extended); protected aX2,aY2 : extended; public aX3,aY3 : extended; procedure Irgendwas_Erster(wert : integer); end; ....
procedure T_Erster.SetAx(value: extended); begin faX := Value; end; procedure T_Erster.SetAy(value: extended); begin faY := Value; end; |
Damit sind die private Variablen vor dem direkten Zugriff von aussen geschützt, können aber als Eigenschaften gelesen und geschrieben werden. Beim Lesen wird direkt der Wert der jeweiligen Variablen gelesen, das Schreiben geschieht über die Funktionen SetAx, SetAy.
Den Code hab ich nicht getestet, sollte aber in etwa funktionieren. Vielleicht hilft dir das ja erst mal weiter.
Gruss Lothar
*dernichtnurdrescheausteilt*
Der BH ist für die Brust, der Plan ist für'n Ar...