[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