[Oleg21]

Подсказите. Я только начинаю. Мне нужно, чтоб программа создавала папку имя которой "Дата выбраная из календаря" и она ето делает. Так же мне нужно чтоб она создавала файлы с расширением " .nc" и загружала их в ету папку. Я применил переменную. Папка создаётся. С етим все в порядке. Если я в пути пишу в ручную за раннее выбранную дату, то все работает а стоит мне ввести в путь к папке переменную и сразу "Глюк". Помогите очень надо.

Код:

function RunModule(num: integer; mname: string): boolean;
Var
  Q: string;
begin
  Q:=DateToStr(frmMain.DateTimePicker1.Date);
  if outCondition then begin 
    CreateDir('out/' + Q);
  end;
  if outCondition then begin
    AssignFile(outf,'out/Q/' + frmMain.edtOrderNo.Text + '_' + IntToStr(num) + '.nc');
    Rewrite(outf);
  end;

lmikle: пользуемся тегами!!!