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