FileQuickSort (Dateien mit wenig Speicherlast sortieren)

[alzaimar]

Satty67, kein Problem. Irgendwann hat Jeder mal angefangen. Poste deine Versuche hier rein, wenn du magst. Du siehst, das man hier gerne hilft. Vielleicht fängst Du mit der Schnittstelle deiner FileSorter-Klasse an. Vielleicht so:

Delphi-Quellcode:

Type
  TTextFileSorterStatus = (tfsInitialiting, tfsSorting, tfsDone, tfsAbort);
  TTextFileSortNotifyEvent = Procedure (Sender : TObject; aStatus : TTextFileSorterStatus; aProgressPercentDone : double; Var aCancel : Boolean) of Object;
  TTextFileSorter = Class
  Public
    Constructor Create (aSourceFile, aDestFile : String);
    Destructor Destroy; Override;
    Procedure Sort;
    Property SourceFilename : String;
    Property DestinationFilename : String;
    Property OnSorting : TSortNotifyEvent;
   End;