Übersetzung Class MagneticWindow

[EWeiss]

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ß