[doomed_cat]

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

[lmikle]

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

Код:

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 для января), то формат надо записать так:

Код:

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

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

[doomed_cat]

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

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

Код:

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(ExtractFilePath(ParamStr(0)),M,D);
end;

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

[lmikle]

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