.ini Datei Schlüssel aller Abschnitte zählen

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