Schnelle suche Filestream

[Baeuerle]

Hallo zusammen,

ich habe folgendes Problem. Ich habe eine typisierte Datei mit folgenden Records.

Delphi-Quellcode:

type TFldr = record
      Name: ShortString;
      Count: Integer; // Anzahl Dateieinträge
      end;

     TFile = record
      Name: ShortString;
      Time: TFileTime; // Letzte Änderung der Datei
      end;

In der typ. Datei kann somit das Filesystem zu einem bestimmten Zeitpunkt gespeichert werden. Ich suche jetzt die schnellste Möglichkeit für:

- Ermitteln des Zeitstempels für eine Datei die in der Datei steht
function GetTimeStamp(Path, Filename: String; var Stamp: TFileTime): Boolean; - Hinzufügen einer Datei mit einem bestimmten Zeitstempel wenn diese noch nicht vorhanden ist.
procedure AddStamp(Path, Filename: String; Stamp: TFileTime); Probleme:
- Da die Datei sehr groß werden kann eignet sich ein Binärbaum nicht unbedingt, da dies zu lasten der Arbeitsspeichers geht
- Direktes arbeiten mit dem FileStream ist nicht gerade schnell

So jetzt bin ich mal auf eure Lösungsansätze gespannt.

Danke im vorraus

Baeuerle