Сохранение с путем из Edit

[amadi]

Помогите пожалуйста
Как вытащить путь из edit и использовать его для сохранения
Вот код программы
procedure TForm1.Button6Click(Sender: TObject);
var
M, d, p:string;
begin
M:=label6.caption; \\имя файла беру здесь
d:=DateToStr(Now); \\ чтоб к имени прибавлялась дата
p:=edit2.Text; \\ путь к фалу
EF.ActiveWorkbook.SaveAs(p+M+d);
end;
Как сделать так чтобы программа сохраняла фаил с имеющимся путем из Edit, с готовым именем и текущей датой?

[artemavd]

procedure TForm1.Button6Click(Sender: TObject);
var
 s:string;
begin 
 s:=DateToStr(Now); \\ чтоб к имени прибавлялась дата
 EF.ActiveWorkbook.SaveAs(Form1.Edit.Text + s[1] + s[2] + '_' + s[4] + s[5] + '_' + s[7] + s[8] + s[9] + s[10]); 
end;

при условии, что в Form1.Edit1.Text путь заканчивается символом "\".

Поясняю: тебе не удасться сохранить файл с именем, в котором дата задается в том формате, в котором ее возвращает функция DateToStr(), т.к. Windows считает символ "." недопустимым в имени файла.

[amadi]

А без "\" никак нельзя, посто в Edit созданый обзор, забивает путь без данного знака, а так работает

Все большое спасибо, разобрался

[GunSmoker]

EF.ActiveWorkbook.SaveAs(Form1.Edit .Text + s[1] + s[2] + '_' + s[4] + s[5] + '_' + s[7] + s[8] + s[9] + s[10]);

OMFG!

procedure TForm1.Button6Click(Sender: TObject);

  // Добавляет к имени файла приписку
  function AddPostfixToFileName(const AFileName, APostfix: String): String;
  var
    Ext: String;
  begin
    // Сохранили расширение 'Workbook1.xls' -> '.xls'
    Ext    := ExtractFileExt(AFileName);
    // Откусили расширение 'Workbook1.xls' -> 'Workbook1'
    Result := ChangeFileExt(AFileName, '');
    // Добавили постфикс 'Workbook1' -> 'Workbook1_2011_01_26'
    Result := Result + APostfix;
    // Вернули расширение 'Workbook1_2011_01_26' -> 'Workbook1_2011_01_26.xls'
    Result := ChangeFileExt(Result, Ext);
  end;

var
  FileName, Path, Postfix, FullFileName: String;
begin
  // В Edit2 - путь, вроде 'C:\Documents' или 'C:\Documents\'
  Path     := IncludeTrailingPathDelimiter(Edit2.Text);
  // В Label6 - имя файла, вроде 'Workbook1.xls', 'Workbook1' или даже '..\Workbook1.xls'
  FileName := Label6.Caption;
  // Форматирует дату в формат вида '_2011_01_26'
  Postfix  := FormatDateTime('_yyyy_mm_dd', Now);

  // 'Workbook1.xls' -> 'Workbook1_2011_01_26.xls'
  FileName := AddPostfixToFileName(FileName, Postfix);

  // Дополнили имя файла путём до полного имени файла
  FullFileName := Path + FileName;

  EF.ActiveWorkbook.SaveAs(FullFileName); 
end;

Windows считает символ "." недопустимым в имени файла.

В каком месте? 2011.01.26.txt - вполне себе допустимое имя файла.

[artemavd]

Я когда делал пост, то проверял для кода, который создает папку. Там нельзя в имени указывать ".". А на счет обычных файлов с расширениями да, там без проблем.

[Пепел Феникса]

т.к. Windows считает символ "." недопустимым в имени файла.

и давно?
только что создал папку с точкой в имени, и файл с несколькими(помимо последней как разделитель расширения)

вообще лучше не надеятся на делфи, а самому через FormatDateTime(вроде она) задать формат времени

[GunSmoker]

Там нельзя в имени указывать "."

Можно.

(За исключением вполне конкретных имён - '.' и '..', являющихся зарезервированными. Только это же не значит, что точку нельзя использовать. Вон, я и файл 'PRN' создать не могу - но это же не значит, что в именах файлов запрещены 'p', 'r' и 'n').

и давно?

Не иначе как в Windows 1.0. И то мне сомнительно.

не надеятся на делфи

Не на Delphi, а на неизменность региональных настроек.