> Hi! > > I fixed bug 4692 > > THe problem is in inifiles.pas > Change the following procedure for: > procedure TIniFile.DeleteKey(const Section, Ident: String); > var > oSection: TIniFileSection; > oKey: TIniFileKey; > begin > 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)); //this is > the change > oKey.Free; > UpdateFile; > end; > end; > end;
Thanks, Applied. _______________________________________________ fpc-devel maillist - [email protected] http://lists.freepascal.org/mailman/listinfo/fpc-devel
