[doomed_cat]

Всем доброго времени суток. Подскажите пожалуйста, как сделать так, чтобы приложение брало системную дату(месяц и день) формата mm.dd, искало папку с таким же названием в определённой директории(например "project\mm.dd"), из этой папки подхватывало рандомное изображение и передавало его в Timage. Знаю что для работы с датой используется TDateTime и процедура DecodeDate, но как это всё связать и сделать так, чтобы это значение сравнивалось с названием папок и из папки брались рандомные изображения не получается:-(. Заранее огромное спасибо.

[lmikle]

Генерацич папки:

Код:

1 2 3 4 5 6 7 8 9 10 11 12

const   FolderNameTmpl = '%s\%d.%d\';   function GetFolderName : String; var   N : TDateTime;   Y, M, D : Word; begin   N := Now;   DecodeDate(N,Y,M,D);   Result := Format(FolderNameTmpl,[ExtractFilePath(ParamStr(0)),M,D]); end;

Если надо что бы месяца и дни были с ведущими нулями (типа 01 для января), то формат надо записать так:

Код:

1 2	const   FolderNameTmpl = '%s\%2d.%2d\';

Дальше, читаем список картинок через FindFirst/FindNext/FindClose в список, например TStringList и из него получаем номер через Random(StringList.Count). Расписывать не буду, бо как просто и гугл в помощь.

[doomed_cat]

Сообщение от lmikle

Генерацич папки:

Код:

[Error] Unit1.pas(59): There is no overloaded version of 'Format' that can be called with these arguments

[lmikle]

Сорь, конечно же не так.
Поправил в своем исходнике.