paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-27 17:30:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix for bug #4962, fix by Marton Pap

Browse Source 
git-svn-id: trunk@2787 -
This commit is contained in:
peter 2006-03-06 11:25:09 +00:00
parent 8a12d38862
commit 492bc50fc2
1 changed files with 11 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
fcl/inc/inifiles.pp
View File

@ -692,17 +692,18 @@ end;
procedure TIniFile.DeleteKey(const Section, Ident: String);
var
oSection: TIniFileSection;
oKey: TIniFileKey;
oSection: TIniFileSection;
oKey: TIniFileKey;
begin
oSection := FSectionList.SectionByName(Section);
if oSection <> nil then begin
oKey := oSection.KeyList.KeyByName(Ident);
if oKey <> nil then begin
oKey.Free;
UpdateFile;
end;
end;
oSection := FSectionList.SectionByName(Section);
if oSection <> nil then begin
oKey := oSection.KeyList.KeyByName(Ident);
if oKey <> nil then begin
oSection.KeyList.Delete(oSection.KeyList.IndexOf(oKey));
oKey.Free;
UpdateFile;
end;
end;
end;
procedure TIniFile.UpdateFile;