Korrekt maade at saette Property internt in en klasse?
Hej,Jeg har et generelt spoergsmaal angaaende Properties og Klasser.
Foelgende klasse (Form) som eksempel:
unit UnitTest;
interface
uses
...;
type
TfrmTest = class(TForm)
cbSource1: TComboBox;
procedure cbSource1Change(Sender: TObject);
private
FSourceIndex: Integer;
function GetSourceIndex: Integer;
procedure SetSourceIndex(Value: Integer);
public
property SourceIndex: Integer read GetSourceIndex write SetSourceIndex;
end;
var
frmTest: TfrmTest;
implementation
function TfrmTest.GetSourceIndex: Integer;
begin
Result := FSourceIndex;
end;
procedure TfrmTest.SetSourceIndex(Value: Integer);
begin
FSourceIndex := Value;
cbSource1.ItemIndex := Value;
end;
procedure TfrmTest.cbSource1Change(Sender: TObject);
begin
//Hvad skal saettes her? FSourceIndex eller SourceIndex?
end;
Spoergsmaalet er, om man internt i en klasse skal saette de private variabler direkte, eller om man skal saette dem via Property?
Tak for evt. hjaelp paa forhaand!