55 lines
979 B
Plaintext
55 lines
979 B
Plaintext
{*******************************************************}
|
|
{ }
|
|
{ ManagerConfig }
|
|
{ }
|
|
{ Copyright (C) 2022 kku }
|
|
{ }
|
|
{*******************************************************}
|
|
|
|
unit ManagerConfig;
|
|
|
|
interface
|
|
|
|
uses
|
|
Tocsg.Obj, System.SysUtils, System.Classes;
|
|
|
|
type
|
|
TRemember = record
|
|
MacUsing: String;
|
|
end;
|
|
TManagerConfig = class(TTgObject)
|
|
public
|
|
Remember: TRemember;
|
|
Constructor Create;
|
|
Destructor Destroy; override;
|
|
|
|
procedure Save;
|
|
procedure Load;
|
|
end;
|
|
|
|
implementation
|
|
|
|
{ TManagerConfig }
|
|
|
|
Constructor TManagerConfig.Create;
|
|
begin
|
|
Inherited Create;
|
|
end;
|
|
|
|
Destructor TManagerConfig.Destroy;
|
|
begin
|
|
Inherited;
|
|
end;
|
|
|
|
procedure TManagerConfig.Save;
|
|
begin
|
|
|
|
end;
|
|
|
|
procedure TManagerConfig.Load;
|
|
begin
|
|
|
|
end;
|
|
|
|
end.
|