TStringList.Sort

[Uwe Raabe]

Lass mal das DateiListe.Sorted := true; weg oder füge ein DateiListe.Duplicates := dupIgnore davor ein.

[himitsu]

Da jeweils nur ein Verzeichnis in sich sortiert wird...

Kann es sein, dass die beiden Letzten in einem anderen Verzeichnis liegen?
Sag ja.

Weißt du was ein Debugger ist?
Haltepunkt auf SerienDB.Memo1.Lines.AddStrings und "nicht" wundern, warum das zwei Mal aufgerufen wird.


UND
Warum ist LfdNummer eine globale Variable?
Warum ist FindAllFiles keine Methode von von TSerienDB? (die würde schön ins private passen)
Warum ...

PS: TDirectory.GetFiles

[H.Bothur]

Zitat von himitsu:

Da jeweils nur ein Verzeichnis in sich sortiert wird...

Kann es sein, dass die beiden Letzten in einem anderen Verzeichnis liegen?
Sag ja.

Nein die beiden letzten sind die Verzeichnisse in denen die anderen Dateien liegen.

Zitat:

Weißt du was ein Debugger ist?
Haltepunkt auf SerienDB.Memo1.Lines.AddStrings und "nicht" wundern, warum das zwei Mal aufgerufen wird.

Ja - aber alle Zeilen sind trotzdem nur einmal in dem Memo - ich habe aber mal die Dateiliste als gloibale Variable genommen (ja - pfui) und die BtnClick verändert:

Delphi-Quellcode:

procedure TSerienDB.BtnLadenClick(Sender: TObject);
begin
  LfdNummer := 1;
  DateiListe := TStringList.Create;
  FindAllFiles(LbEVerzeichnis.Text);
  Dateiliste.Sort;
  SerienDB.Memo1.Lines.AddStrings(DateiListe);
  DateiListe.Free;
end;

Dann kommt das spannenderweise passend raus

Zitat:

UND
Warum ist LfdNummer eine globale Variable?

Weil ich nicht wusste wie ich das am besten mache wenn ich die procedure rekursiv aufrufe

Zitat:

Warum ist FindAllFiles keine Methode von von TSerienDB? (die würde schön ins private passen)
Warum ...

Weil ich immer noch nicht das Konzept mit den Methoden und so verstanden habe - sorry, da hänge ich halt immer noch in den 80ern bei TP3.0

Zitat:

PS: TDirectory.GetFiles

Oh, das kannte ich nicht, das kucke ich mir morgen mal an !

Gruss
Hans

[Uwe Raabe]

Beim rekursiven Aufruf von FindAllFiles wird aber jedes mal eine eigene DateiListe gefüllt und am Ende in das Memo übertragen. Das Sort wirkt dann halt auch nur auf die gerade aktuelle Instanz. Du solltest die DateiListe als Parameter an FindAllFiles übergeben und das Sort wie auch das Übertragen ins Memo außerhalb (also z.B. in BtnLadenClick) machen.

[H.Bothur]

Zitat von Uwe Raabe:

Lass mal das DateiListe.Sorted := true; weg oder füge ein DateiListe.Duplicates := dupIgnore davor ein.

Ich hab das DateiListe.Sorted := true; rausgenommen - ändert leider nichts

Hans