[Back to DELPHI SWAG index] [Back to Main SWAG index] [Original]

    function RegGetStr( sKey, sItem, sDefVal : string ) : string;
    var
      reg : TRegIniFile;
    begin
      reg := TRegIniFile.Create( sKey );
      Result := reg.ReadString( '', sItem, sDefVal );
      reg.Free;
    end;

    procedure RegSetStr( sKey, sItem, sVal : string );
    var
      reg : TRegIniFile;
    begin
      reg := TRegIniFile.Create( sKey );
      reg.WriteString( '', sItem, sVal + #0 );
      reg.Free;
    end;

    // now, you can call above helper functions like you wanted:
    //

    {ATextBox.Text :=3D RegGetStr( 'Software\MyCompanyName\MyProductName',
    'variable1', 'default value goes here' );

    RegSetStr( 'Software\MyCompanyName\MyProductName', 'variable1',
    ATextBox.Text );}

[Back to DELPHI SWAG index] [Back to Main SWAG index] [Original]