Zitat von
xaromz:
Hallo,
Zitat von
EWeiss:
und in der Public Variablen m_lSnapWidth gespeichert.
Über 'Get SnapWidth' kann ich die Variable abfragen welchen aktuellen wert sie hat.
Klappt in VB !
Das klappt auch wunderbar in Delphi. Aber wo speicherst Du denn einen Wert in einer privaten Variablen? Da ist in Deinem Quelltext nichts zu finden.
In Delphi sehen Getter und Setter so aus:
Delphi-Quellcode:
function TMagnetic.GetSnapWidth: Integer;
begin
Result := FSnapWidth;
end;
procedure TMagnetic.SetSnapWidth(const Value: Integer);
begin
FSnapWidth := Value;
end;
Zusätzlich wird unter
private ein Feld
FSnapWidth angelegt, in dem die Werte dann gespeichert werden.
Gruß
xaromz
Eine Frage nur zum verständnis!
Warum wird dann in der procedure nicht auch GetSnapWidth übergeben
property SnapWidth: Integer read GetSnapWidth write SetSnapWidth;
anstatt
property SnapWidth: Integer read FSnapWidth write SetSnapWidth;
GetSnapWidth wird dann doch nirgends aufgerufen oder?
gruß