Einzelnen Beitrag anzeigen

Baeuerle

Registriert seit: 17. Mär 2005
Ort: Ettenheim
283 Beiträge
 
Delphi 2005 Professional
 
#1

Schnelle suche Filestream

  Alt 10. Mär 2006, 08:08
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
  Mit Zitat antworten Zitat