regini.inc 1.3 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465
  1. {******************************************************************************
  2. TRegIniFile
  3. ******************************************************************************}
  4. constructor TRegIniFile.Create(const FN: String);
  5. begin
  6. inherited Create;
  7. fFileName := FN;
  8. end;
  9. procedure TRegIniFile.DeleteKey(const Section, Ident: String);
  10. begin
  11. end;
  12. procedure TRegIniFile.EraseSection(const Section: string);
  13. begin
  14. end;
  15. procedure TRegIniFile.ReadSection(const Section: string; Strings: TStrings);
  16. begin
  17. end;
  18. procedure TRegIniFile.ReadSections(Strings: TStrings);
  19. begin
  20. end;
  21. procedure TRegIniFile.ReadSectionValues(const Section: string; Strings: TStrings);
  22. begin
  23. end;
  24. procedure TRegIniFile.WriteBool(const Section, Ident: string; Value: Boolean);
  25. begin
  26. end;
  27. procedure TRegIniFile.WriteInteger(const Section, Ident: string; Value: LongInt);
  28. begin
  29. end;
  30. procedure TRegIniFile.WriteString(const Section, Ident, Value: String);
  31. begin
  32. end;
  33. function TRegIniFile.ReadBool(const Section, Ident: string; Default: Boolean): Boolean;
  34. begin
  35. Result := Default;
  36. end;
  37. function TRegIniFile.ReadInteger(const Section, Ident: string; Default: LongInt): LongInt;
  38. begin
  39. Result := Default;
  40. end;
  41. function TRegIniFile.ReadString(const Section, Ident, Default: String): String;
  42. begin
  43. Result := Default;
  44. end;