... | @@ -252,6 +252,7 @@ implementation |
... | @@ -252,6 +252,7 @@ implementation |
|
|
|
|
|
constructor TSettingsInitialazer<T>.Create(ASettingsName: string; AInitDataProc: TInitSettingsProc<T>);
|
|
constructor TSettingsInitialazer<T>.Create(ASettingsName: string; AInitDataProc: TInitSettingsProc<T>);
|
|
begin
|
|
begin
|
|
|
|
inherited Create;
|
|
FSettingsName := ASettingsName;
|
|
FSettingsName := ASettingsName;
|
|
FInitDataProc := AInitDataProc;
|
|
FInitDataProc := AInitDataProc;
|
|
end;
|
|
end;
|
... | | ... | |