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