сохранение файла Ворд

[Ernest027]

Привет форумчане)))
подскажите пожалуйста что не так в этом коде?
var
s:string;
begin
ForceDirectories('c:\Протоколы'+'\' +datamodule2.ADOQuery2.FieldByName( 'Организация').AsString+'\'+datamod ule2.ADOQuery3.FieldByName('Структу рное подразделение').AsString+' '+FormatDateTime('yyyy', Now)+'\'+'Черновой вариант');
s:='c:\Протоколы'+'\'+datamodule2.A DOQuery2.FieldByName('Организация') .AsString+'\'+datamodule2.ADOQuery3 .FieldByName('Структурное подразделение').AsString+FormatDate Time('yyyy', Now)+'\'+'Черновой вариант';
App.ActiveDocument.SaveAs(s+'\'+'1' +'.doc');

пишет:
"Неверно указано имя файла. Попробуйте выполнить следующие действия:..."

Спасибо

[Ernest027]

тема закрыта) разобрался)

[BARNEY]

пропустите содержимое через эту функцию

  function DeleteStopSymbols(AText: String): string;
  const
    cntStopSym = ['>', '<', '|', '?', '*', '/', '\', ':', '"'];
  var
    i: Integer;
  begin
    for i := Length(AText) downto 1 do
      if AText[i] in cntStopSym then
        delete(AText, i, 1);
    Result := AText;
  end;

[Toxa]

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

пропустите содержимое через эту функцию

  function DeleteStopSymbols(AText: String): string;
  const
    cntStopSym = ['>', '<', '|', '?', '*', '/', '\', ':', '"'];
  var
    i: Integer;
  begin
    for i := Length(AText) downto 1 do
      if AText[i] in cntStopSym then
        delete(AText, i, 1);
    Result := AText;
  end;

а чем вам '\' этот символ помешал, он то как раз и нужен, да и ':' ?!

а Ernest027 посоветовал бы делать так

var
s:string;
begin
s := 'c:\Протоколы'+'\' +datamodule2.ADOQuery2.FieldByName( 'Организация').AsString+'\'+datamod ule2.ADOQuery3.FieldByName('Структу рное подразделение').AsString+' '+FormatDateTime('yyyy', Now)+'\'+'Черновой вариант';
ForceDirectories(s);
App.ActiveDocument.SaveAs(s+'\'+'1' +'.doc');

чтобы не возникало таких ошибок