ini file , readstring UTF vs. ASCII

[bernhard_LA]

a) wenn ich die Ini files Klasse weiterhin verwenden will, benötige ich einen Check auf BOM , ich habe diesen code hierzu gefunden https://www.delphi-treff.de/tipps-tr...rung-erkennen/
eine extra Zeile Code und eine Exception werfen wenn das BOM Flag gefunden wird ?


b) bei dieser Option , von https://docwiki.embarcadero.com/Code...niFile_(Delphi),
wie übergebe ich den Filenamen an meine Settingsklasse ?
Die Funktion OpenIniFileInstance() ist leider nicht erklärt

Delphi-Quellcode:

var
  SettingsFile : TCustomIniFile;
begin
  { Open an instance }
  SettingsFile := OpenIniFileInstance();

  try
    {
    Read all saved values from the last session. The section name
    is the name of the form. Also use the form's properties as defaults.
    }
    Top     := SettingsFile.ReadInteger(Name, 'Top', Top );
    Left    := SettingsFile.ReadInteger(Name, 'Left', Left );
    Width   := SettingsFile.ReadInteger(Name, 'Width', Width );
    Height  := SettingsFile.ReadInteger(Name, 'Height', Height );
    Caption := SettingsFile.ReadString (Name, 'Caption', Caption);

    { Load last window state. }
    case SettingsFile.ReadBool(Name, 'InitMax', WindowState = wsMaximized) of
      true : WindowState := wsMaximized;
      false: WindowState := wsNormal;
    end;

  finally
    SettingsFile.Free;
  end;
end;

PS : diesmal wurde die Datei mit dem Notepad++ erstellt

[himitsu]

Erstmal, INI-Dateiteien der WinAPI gibt es ausschließlich in ANSI oder UTF-16 (ohne BOM).

Dein Problem dürfte sich aber durch die TStringList lösen lassen, also mit RadioGroup1.ItemIndex=2.

Zitat:

PS : diesmal wurde die Datei mit dem Notepad++ erstellt

Das darf man gern machen, aber beim Speichern wählt man dann gefälligst auch das richtige Format.

Zitat:

Check auf BOM

Da gibt es auch was von Ratiof TEncoding.

Zitat:

Die Funktion OpenIniFileInstance() ist leider nicht erklärt

Die ist doch selbsterklärend?

[bernhard_LA]

nicht ganz, weil meiene naheliegende Lösung hier dann einen Abstract Fehler zurückliefert ....

Delphi-Quellcode:

  
var
  IniFile: TCustomIniFile;
  if FileExists(filename) then
  begin
    IniFile := TCustomIniFile.Create(filename);
    try
      Result := IniFile.ReadString(SectionStr, IdentStr, '<none>');
    finally
      IniFile.Free;
    end;
  end
  else
  begin
    Result := '<no file found>';
  end;

[Klaus01]

.. aus der Hilfe..

Zitat:

Note: Use TCustomIniFile as a base class when defining components that access ini files. Ini files are text files that are divided into sections with variable assignments in each section. TCustomIniFile introduces properties and methods to handle storage and retrieval of application-specific information and settings in a standard ini file.

..

Do not create instances of TCustomIniFile. Instead, use or create descendants of TCustomIniFile, such as TIniFile, TRegistryIniFile, and TMemIniFile

Grüße
Klaus