diff --git a/windows/src/global/delphi/general/inifileex.pas b/windows/src/global/delphi/general/inifileex.pas deleted file mode 100644 index 6f911cad58..0000000000 --- a/windows/src/global/delphi/general/inifileex.pas +++ /dev/null @@ -1,38 +0,0 @@ -unit inifileex; - -interface - -uses Classes, IniFiles; - -type - TIniFileEx = class(TIniFile) - procedure ReadSectionValues2(const Section: string; Strings: TStrings); - end; - -implementation - -procedure TIniFileEx.ReadSectionValues2(const Section: string; Strings: TStrings); -var - KeyList: TStringList; - I: Integer; - s: string; -begin - KeyList := TStringList.Create; - try - ReadSection(Section, KeyList); - Strings.BeginUpdate; - try - for I := 0 to KeyList.Count - 1 do - begin - s := ReadString(Section, KeyList[I], ''); if s = '' then s := KeyList[I]; - Strings.Values[KeyList[I]] := s; - end; - finally - Strings.EndUpdate; - end; - finally - KeyList.Free; - end; -end; - -end.