From c729eec3426313bcd1433db7ad5eca52d0e8818f Mon Sep 17 00:00:00 2001 From: Marc Durdin Date: Tue, 21 Jun 2022 09:46:14 +1000 Subject: [PATCH] chore(windows): delete unused inifileex.pas --- .../src/global/delphi/general/inifileex.pas | 38 ------------------- 1 file changed, 38 deletions(-) delete mode 100644 windows/src/global/delphi/general/inifileex.pas 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.