Delphi-Quellcode:
function TMagnetic.GetSnapWidth: Integer;
begin
Result := SnapWidth;
end;
property SnapWidth: Integer read GetSnapWidth write SetSnapWidth;
Also diese Kombination ist schon mal tödlich, da rekursiv - der Getter ruft die Property auf, diese wieder den Getter... Du solltest ein internes Feld anlegen (FSnapWidth).
Delphi-Quellcode:
TMagnetic = class
private
FSnapWidth: integer;
procedure SetSnapWidth(const Value: integer);
public
Property SnapWidth : integer read FSnapWidth write SetSnapWidth;
end;
Geht übrigens vollautomatisch, wenn Du auf der Zeile stehst...
Property SnapWidth : integer
... und dann Strg-Shift-C drückst!
Uups, sorry xaromz da war ich wohl wieder zu schnell...