Hallo CodeX,
vielleicht hast du mit einer
shadow class mehr Glück:
Delphi-Quellcode:
type
TIniFile = class (IniFiles.TIniFile)
public
function ReadString (const aSection, aKey, aDefault: string): string;
end;
function TIniFile.ReadString (const aSection, aKey, aDefault: string): string;
begin
Result := '<' + inherited ReadString(aSection, aKey, aDefault) + '>';
end;
Am besten lagerst du Klassendefinition in eine eigene
Unit aus. Du musst bei der Verwendung nur darauf achten, dass die neue
Unit in der USES-Anweisung
nach IniFiles auftaucht - falls du IniFiles überhaupt noch dort aufführen musst.
Gruß Hawkeye