Forum: Programmieren allgemein
by Shaman,
12. Okt 2004
function GetRandomPath: string;
function GetRandomDir(const Dir: string): string;
var
DirList: TStringList;
SR: TSearchRec;
begin
Result:= Dir;
if FindFirst(Dir + '*.*', faAnyFile, SR) = 0 then try
DirList:= TStringList.Create;
try
Forum: Programmieren allgemein
by Shaman,
12. Okt 2004
Ich fände es auch witzig. Wenn mir nichts besseres in Sinn kommt, mach ich das heute Abend :drunken:
Forum: Programmieren allgemein
by Shaman,
12. Okt 2004
Ja, stimmt. Aber das wäre unsportlich :mrgreen:
Forum: Programmieren allgemein
by Shaman,
12. Okt 2004
Hoi
Na klar, mit allen Unter- und Unterunterordnern... Das sind doch tausende. Dann noch den Namen und Zeitstempel der Datei zufällig setzen und Du kannst sie suchen gehen. :wink:
Gruss
Shaman
Forum: Programmieren allgemein
by Shaman,
12. Okt 2004
Hoi
Schreib dir eine Funktion, die einen zufälligen Pfad aus der gesamten Verzeichnisstruktur generiert und speicher die Datei dort ab. Findet kein Mensch mehr. :mrgreen:
Gruss
Shaman