TEventsDM = class(TDataModule)
..
private
fCurrentEvent : tDataResults;
Procedure SetCurr(InData : tDataResults);
Function GetCurr : tDataResults;
public
constructor Create(Sender: TObject);
property SetCurrent : tDataResults read GetCurr write SetCurr;
property GetCurrent : tDataResults read GetCurr write SetCurr;
end;
EventsDM : TEventsDM;
TEventsDM = class(TDataModule)
fCurrentEvent: tDataResults;
private
procedure SetCurrentEvent(AData: tDataResults);
function GetCurrentEvent: tDataResults;
public
constructor Create(Sender: TObject);
property CurrentEvent: tDataResults read GetCurrentEvent write SetCurrentEvent;
end;
If I try and tidy up the property/s to
property SetCurrent : tDataResults write SetCurr;
property GetCurrent : tDataResults read GetCurr;
The compile fails reporting: 'No member is provided to access property'.