?? myreg.pas
字號:
unit myreg;
interface
uses registry;
type TMyReg = class(TRegistry)
public
function ReadInt(const Name: String; const Def: Integer): Integer;
function ReadStr(const Name: String; const Def: String): String;
function ReadBoolean(const Name: String; const Def: Boolean): Boolean;
end;
implementation
function TMyReg.ReadInt(const Name: String; const Def: Integer): Integer;
begin
if Self.ValueExists(Name) then
Result := ReadInteger(name)
else
Result := Def;
end;
function TMyReg.ReadStr(const Name: String; const Def: String): String;
begin
if Self.ValueExists(Name) then
Result := ReadString(name)
else
Result := Def;
end;
function TMyReg.ReadBoolean(const Name: String; const Def: Boolean): Boolean;
begin
if Self.ValueExists(Name) then
Result := Readbool(name)
else
Result := Def;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -