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;