[SKIPtr]

драсте многие програмы в имени файла текст %data% и %time% заменяеться на текущюю дату и время
как это лучше сделать

[Страдалецъ]

Не совсем понял вопрос, предположу что нужно примерно такое:

Код:

var i: Integer;
    FileName: String;
    FormatSettings: TFormatSettings;
begin
 if not OpenDialog1.Execute then Exit;
 FormatSettings.ShortDateFormat := 'ddmmyyyy hhmmss';
 for i := 0 to OpenDialog1.Files.Count - 1
 do begin
    FileName := ExtractFilePath(OpenDialog1.Files[i]);
    FileName := FileName + DateToStr(Now, FormatSettings) + '(' + IntToStr(i) + ')';
    FileName := FileName + ExtractFileExt(OpenDialog1.Files[i]);
    if FileExists(FileName) then Continue;
    RenameFile(OpenDialog1.Files[i], FileName);
    end;
end;

[Alegun]

Код:

...
s:= 'file_%data%_or_%time%.tmp';
s:= StringReplace(s, '%data%', FormatDateTime('ee-mm-dd',  Now),[rfReplaceAll]);
s:= StringReplace(s, '%time%', FormatDateTime('hh-nn-ss-z',Now),[rfReplaceAll]);
...

[SKIPtr]

програма будет делать авто сохранение
сохранять имя укаханое в щаблоне только там где в шаблоне указано %time% подставляеться текущее время

[SKIPtr]

так кажеться умеет дос команда

[lmikle]

Ну так и подставляй.

Код:

procedure SaveFile;
const
  FileNameTmpl = 'file_%date%_%time%.dat';
var
  FileName : String;
begin
  FileName := StringReplace(FileNameTmpl,'%date%',DateToStr(Now),[rfReplaceAll]);
  FileName := StringReplace(FileName,'%time%',TimeToStr(Now),[rfReplaceAll]);

  ShowMessage('А теперь сохраняем данные в файл с именем ' + FileName);
end;

[SKIPtr]

спасибо
я про эту процедуру думал но надеелся будетче то непосредственое из обработки дос команды но наверно лучший вариант это StringReplace