TStringlist, THashedStringlist gibts nichts schnelleres??

[Franzelchen]

Hier mein Anpassungsversuch:

Delphi-Quellcode:

function VerabeiteDatenAusDatei( const FileName : string; const Ergebnis : TStringList ) : boolean;
var
  sL, Zaehlerliste: TStringList;
  i,Zahl,n: integer;
begin
  // Erstmal ist das Ergebnis noch nicht in Ordnung
  Result := False;

  if FileExists( FileName ) then
    begin
      sL := TStringList.Create;
      Zaehlerliste := TStringList.Create;
      try
        sL.LoadFromFile( FileName );
        // Jetzt machen wir was ganz Tolles mit den Daten und schreiben das in die TStringList Ergebnis


i  := ZaehlerListe.IndexOf(SL.Text);  // Finde Eintrag in der Zaehlerliste
If i=0 then           // Es existiert noch kein Eintrag,
  ZaehlerListe.AddObject(SL.Text, TObject(1)) // erstelle also einen mit dem Wert 1
else begin
  n := Integer (ZaehlerListe.Objects[i]);  // Ansonsten schnapp dir den Zähler und
  ZaehlerListe.Objects[i] := TObject(n+1); // erhöhe ihn um 1.
end;
       for i:=1 to Zaehlerliste.Count-1 do
          begin
             Ergebnis.Add(Zaehlerliste.Objects[i] +IntToStr(n)) ;
          end;


   //     Ergebnis.Add( sl[ 0 ] );
        // Ist alles korrekt durchlaufen und sind die Ergebnisse so korrekt dann
        Result := True;
      finally
        sL.Free;
        Zaehlerliste.Free;
      end;
    end;
end;

Die Zeile
Ergebns.add.... läßt sich nicht compilieren Fehler String und TObject obwohl n doch integer ist. Woran liegt das?

[alzaimar]

Bitte korrigiere den kopierten Code (i=0 => i=-1)
Erkläre bitte, was dein Code machen soll. Zeile für Zeile. Dann findest Du zunächst die Fehler, die den code davon abhalten würden, überhaupt zu funktionieren.

Strings formatiert man z.B. mit der Format-Funktion.

[Franzelchen]

Hallo alzaimar,
Also ich hab mich dran versucht. Ich begreife das einfach nicht, noch nicht. Kannst du mir ein paar Hilfestellungen geben?