meminifiles, inifiles , einlesen scheitert

[bernhard_LA]

ich habe schon wieder ein Probleme beim Einlesen von *.ini files,
der Code wurde auf TMemInifile umgestellt, allerdings das Einlesen klappt nur bei ~50 % alles Infiles,
Im Notepad sehen alle Files
sinnvoll aus, die Files werden aus einer Delphi Anwendung heraus geschrieben mit der Klasse TInifile.

Delphi-Quellcode:

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

Frage : hat jemand eine Anwendung / Code mit der ich eine *.ini Datei prüfen kann ob sie erfolgreich gelesen werden kann ?

[Uwe Raabe]

Zitat von bernhard_LA:

allerdings das Einlesen klappt nur bei ~50 % alles Infiles,

Dann häng doch mal so eine Datei an, die nicht eingelesen wird.

[bernhard_LA]

leider unmöglich ... Firmen interne Daten

[Der schöne Günther]

Ini-Dateien sind echt kein Hexenwerk, das TMemIniFile ist im Endeffekt nur eine StringList. Schau doch im Debugger einfach ob er den Kram richtig einliest oder ob z.B. beim Encoding was quer hängt.

[venice2]

Vor allem prüfe das Daten Format mit dem die Ini Dateien geschrieben wurden.
Mit UltraEdit geht das gut. Steht unten in der Status Zeile.

DOS, UNIX oder what ever

[Delphi.Narium]

Wie groß sind die Dateien?

5 Zeilen?
50 Zeilen?
5000 Zeilen?
50000000 Zeilen?

Dateigröße in Byte, KByte, ... TByte?

Zeichensatz:
Schreiben OEM Lesen UTF8?
Schreiben ANSI Lesen UTF8?
...
Schreiben UTF8 Lesen ANSI?
Schreiben UTF8 Lesen OEM?

Oder was auch immer?

Klappt es einfach nur nicht oder gibt es auch 'ne Fehlermeldung?

Wo ist die Fehlerbehandlung? Außerhalb von ReadINIString?

Würde da mal noch ein Try Except end mit einbauen.