Re: TStringlist, THashedStringlist gibts nichts schnelleres?
Hier mein Anpassungsversuch:
Delphi-Quellcode:
Die Zeile
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; Ergebns.add.... läßt sich nicht compilieren Fehler String und TObject obwohl n doch integer ist. Woran liegt das? |
Re: TStringlist, THashedStringlist gibts nichts schnelleres?
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. |
Re: TStringlist, THashedStringlist gibts nichts schnelleres?
Hallo alzaimar,
Also ich hab mich dran versucht. Ich begreife das einfach nicht, noch nicht. Kannst du mir ein paar Hilfestellungen geben? |
Alle Zeitangaben in WEZ +1. Es ist jetzt 08:21 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz