.ini Datei Schlüssel aller Abschnitte zählen

[Bummi]

statt mit Schleifen über z.B. ein[I] den String zusammenzubasteln, was schief geht wenn z.B. "ein" kürzer wäre als erwartet könntest Du Dir mal COPY anschauen ...

[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;

[Drahcir]

Zitat von Bummi:

statt mit Schleifen über z.B. ein[I] den String zusammenzubasteln, was schief geht wenn z.B. "ein" kürzer wäre als erwartet könntest Du Dir mal COPY anschauen ...

Ja Copy kenne ich und habs mit Coby probiert, aber ich finde es geht so einfacher (Der String verkürzt sich nicht, da dies eine Zeile ist die einheitlich vom System geschrieben wird)

Habe die initialisierung nun aus der try-finally-anweisung raus geholt.
Damit ihr noch ein wenig Spaß mit meinem Müll haben könnt will ich euch nun mal eine aktualisierung schicken

Delphi-Quellcode:

procedure TfrmMain.btLogInsClick(Sender: TObject);
var I, Zeile, Anzahl : Integer; 
    LogInIni : TIniFile;
    Ein, Datum, DatumAusgelesen, Uhrzeit, Koordinaten, LogIns : string;
    sl1, sl2 : TStringlist;
begin
  hLogInFenster := TfrmLogInAnzeige.Create(frmMain);
  hLogInFenster.Left := frmMain.Left + frmMain.Width + 20;
  hLogInFenster.Top := frmMain.Top;

  LogIns := ExtractFilePath(ParamStr(0)) + 'LogIns.ini';
  LogInIni := TIniFile.Create(LogIns);

  for Zeile := 0 to hLogFenster.MemoLogAnzeige.Lines.Count-1 do begin
    ein := Utf8ToAnsi(hLogFenster.MemoLogAnzeige.Lines[Zeile]);

    if (pos(cbSpieler.Text, Ein) <> 0) AND (pos('logged in with entity id', ein) <> 0)
    then begin
      {*** Uhrzeit ***}
      for I := 12 to 19 do Uhrzeit := Uhrzeit + ein[I];
     
      {*** Datum ***} 
      DatumAusgelesen := leftStr(Ein,10);
      for I := 9 to 10 do Datum := Datum + DatumAusgelesen[I]; Datum := Datum + '.';
      for I := 6 to  7 do Datum := Datum + DatumAusgelesen[I]; Datum := Datum + '.';
      for I := 1 to  4 do Datum := Datum + DatumAusgelesen[I];

      if hLogInFenster.cbLogins.Items.IndexOf( Datum ) < 0
      then hLogInFenster.cbLogins.Items.Add(Datum);

      {*** Koordinaten ***}
      Koordinaten := copy(Ein, pos('(',Ein)+1,200);
      Delete(Koordinaten,pos(')',Koordinaten),1);

      {*** Eintragen des Datums, Uhrzeit und Koordinaten in die .ini ***}
      try LogInIni.WriteString(Datum, Uhrzeit, Koordinaten);
      finally end; //freigeben der LogInIni am Ende der Prozedur

      {*** Zurücksetzen der Variablen ***}
      Uhrzeit := ''; Datum := ''; Datumausgelesen := '';
    end;
  end;

  Anzahl := 0;
  sl1 := TStringList.Create; sl2 := TStringList.Create;
  
  try 
    LogInIni.ReadSections(sl1);
    for I := 0 to sl1.Count - 1 do begin
      LogInIni.ReadSectionValues(sl1.Strings[I], sl2);
      Anzahl := Anzahl + sl2.Count;
    end;

    hLogInFenster.Label1.Caption := IntToStr(Anzahl);
    hLogInFenster.Show;
  
  finally LogInIni.Free; sl1.Free; sl2.Free; end; 
end;

Ich denke man merkt das ich ein blutiger Anfänger bin was Programmieren betrifft, ich mache noch viele Fehler aber ich bin dankbar das man mich auf solche Mängel hinweist und Lösungsvorschläge dafür abgebt Danke.

[Bummi]

Deinen Code selbst als Müll zu bezeichnen klingt als ob Du die eine oder andere Antwort als Angriff verstanden haben könntest, gemeint war sicher keine so.
Um Erbsen zu zählen ....
Ich würde das Erzeugen von sl1 und sl2 direkt nach LogInIni := TIniFile.Create(LogIns);
einfügen und im Anschluss das TRY "öffnen"

[Drahcir]

Nein so meinte ich es nicht, nur im Vergleich zu dem was ihr mir hier "mal eben so aus dem Ärmel zaubert, es ist wohl wirklich das günstigste die Creates nacheinander zu nehmen und anschliessend ein try zu setzen.

Nochmals vielen Dank für eure Hilfen