myreg.pas

Delphi编写的一个支持语法高亮显示和很多语言的文本编辑器

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.