IniFile.ReadString liest nicht alles aus!

[Hawkeye219]

Falls die Einträge

Code:

Key1=""
Key2=

als gleichwertig betrachtet werden können, hilft vielleicht der folgende Code:

Delphi-Quellcode:

type
  TIniFileEx = class (TIniFile)
  public
    function ReadString2 (const aSection, aKey, aDefault: string): string;
  end;

function TIniFileEx.ReadString2 (const aSection, aKey, aDefault: string): string;
begin
  if ValueExists(aSection, aKey) then
    begin
      Result := ReadString(aSection, aKey, aDefault);
      if (Result = '') then
        Result := '""';
    end
  else
    Result := aDefault;
end;

Gruß Hawkeye