erabo/spiegel-keyman
1
0
Fork 0
mirror of https://github.com/keymanapp/keyman.git synced 2026-08-12 03:45:34 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 13

chore(windows): delete unused inifileex.pas

Browse source
This commit is contained in:
Marc Durdin 2022-06-21 09:46:14 +10:00
parent 7583fa64fe
commit c729eec342
1 changed files with 0 additions and 38 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

38
windows/src/global/delphi/general/inifileex.pas
View file

@ -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.