.ini Datei Schlüssel aller Abschnitte zählen

[himitsu]

Zitat:

Delphi-Quellcode:

procedure TfrmMain.btLogInsClick(Sender: TObject);
begin
  ...
  for Zeile := 0 to hLogFenster.MemoLogAnzeige.Lines.Count-1 do begin
    ...
    if ... then begin
      ...

      {*** Eintragen des Datums, Uhrzeit und Koordinaten in die .ini ***}
      try LogIns := ExtractFilePath(ParamStr(0)) + 'LogIns.ini';
          LogInIni := TIniFile.Create(LogIns);
          LogInIni.WriteString(Datum, Uhrzeit, Koordinaten);
      finally LogInIni.Free; end;
      ...
    end;
    ...
  end;
  ...
  LogInIni.ReadSections(sl1);
  for I := 0 to sl1.Count - 1 do begin
    LogInIni.ReadSection(sl1.Strings[I], sl2);
    Anzahl := Anzahl + sl2.Count;
  end;
  ...
end;

Theoretisch würde ich hier erwarten, daß Delphi mir in den Compilermeldungen etwas von wegen "Variable nicht initialisiert" um die Ohren haut.

Das LogInIni wird nur innerhalb der der Schleife und in dem IF initialisiert, also wenn es dort nie vorbeikommt, dann kann es danach nicht initialisiert sein.
Außerdem wird es da in der Schleife nicht nur initialisiert, sonder auch gleich wieder freigegeben, womit es nach der Schleife auch wieder nicht mehr vorhanden ist.


An deiner Stelle würde ich zukünftig nie wieder .Free (erst garncht .Destroy), sondern nur noch FreeAndNil verwenden.

PS:

Zitat:

Delphi-Quellcode:

      try LogIns := ExtractFilePath(ParamStr(0)) + 'LogIns.ini';
          LogInIni := TIniFile.Create(LogIns);
          LogInIni.WriteString(Datum, Uhrzeit, Koordinaten);
      finally LogInIni.Free; end;

Die Initialisierung gehört niemals in den Schutzblock

Denn was passiert, wenn es beim Initialisieren (Erstellen des Objektes) knallt?
Genau, es kanllt im Finally auch nochmal.

Delphi-Quellcode:

LogIns := ExtractFilePath(ParamStr(0)) + 'LogIns.ini';
LogInIni := TIniFile.Create(LogIns);  // kurz vorm Try erstellen (dazwischen darf kein "gefährlicher" Code mehr kommen)
try
  LogInIni.WriteString(Datum, Uhrzeit, Koordinaten);
finally
  LogInIni.Free;
end;

// oder

LogInIni := nil;  // erstmal als "leer" initialisieren
try
  LogIns := ExtractFilePath(ParamStr(0)) + 'LogIns.ini';  // das kann in oder vor dem Try stehen 
  LogInIni := TIniFile.Create(LogIns);  // und später erstellen (wird im es Try-Finally nochmal freigegeben, dann nur mit FreeAndNil freigeben+finalisieren)
  LogInIni.WriteString(Datum, Uhrzeit, Koordinaten);
finally
  LogInIni.Free;
end;