Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Delphi Новый топик    Ответить
Топик располагается на нескольких страницах: Ctrl  назад   1 [2]      все
 Re: Исходники на печать  [new]
Penner
Member

Откуда:
Сообщений: 274
alekcvp
GExperts -> Source Export -> получаем rtf, далее его в Word или аналог и причёсывем как хочется.
Потом распечатать на любом PDF принтере (в Windows 10 вроде есть встроенный).


каждый модуль вручную :(
5 окт 17, 22:14    [20846662]     Ответить | Цитировать Сообщить модератору
 Re: Исходники на печать  [new]
Exteris
Member

Откуда: Новосибирск
Сообщений: 896
В Far-е, если слышал про такой, можно выделить все файлы и скопировать их все в один файл. А там уж конвертируй как-хошь.
6 окт 17, 07:52    [20847007]     Ответить | Цитировать Сообщить модератору
 Re: Исходники на печать  [new]
Exteris
Member

Откуда: Новосибирск
Сообщений: 896
Да вообще тьма вариантов. Нафиг тут делфи.
6 окт 17, 07:53    [20847008]     Ответить | Цитировать Сообщить модератору
 Re: Исходники на печать  [new]
Граур Станислав
Member

Откуда:
Сообщений: 871
Penner
alekcvp
GExperts -> Source Export -> получаем rtf, далее его в Word или аналог и причёсывем как хочется.
Потом распечатать на любом PDF принтере (в Windows 10 вроде есть встроенный).


каждый модуль вручную :(


1) Найди способ печатать один pas-файл в pdf.
2) Затем напиши скрипт на cmd/bat/delphi/еще куча языков, который будет обходить дерево каталогов с исходниками и печатать в pdf
6 окт 17, 10:08    [20847246]     Ответить | Цитировать Сообщить модератору
 Re: Исходники на печать  [new]
softwarer
Member

Откуда: 127.0.0.1
Сообщений: 51265
Блог
Exteris
Да вообще тьма вариантов. Нафиг тут делфи.

Я уже предвкушаю следующий вопрос (вспоминая тот проект, на котором заказчик потребовал вставить полные исходники в документацию, как одно из приложений. в один вордовый документ. мы это сделали)
6 окт 17, 11:08    [20847449]     Ответить | Цитировать Сообщить модератору
 Re: Исходники на печать  [new]
под ван
Guest
Ставишь плагин "Print All" для Notepad++ > выделяешь все pas-файлы > ПКМ > Edit with Notepad++ > профит.
6 окт 17, 11:38    [20847548]     Ответить | Цитировать Сообщить модератору
 Re: Исходники на печать  [new]
незваныйГость
Guest
Penner
каждый модуль вручную :(

Фрагмент из рабочей утилиты по преобразованию rtf в doc средствами ms-office
var
  FWordApp: OleVariant;

  FWordApp := CreateOleObject('Word.Application');

procedure ProcessOneFile(const FileName: TFileName);
var
  _Name: WideString;
begin
  if VarIsEmpty(FWordApp) or VarIsNull(FWordApp) then Exit;
  _Name := FileName;
  try
    FWordApp.Documents.Open(_Name);
    _Name := copy(FileName, 1, Length(FileName) - 3) + 'doc';
    try
      FWordApp.ActiveDocument.SaveAs(_Name);
    except
      on E: Exception do begin
        showmessage(e.Message);
      end;
    end;
    FWordApp.ActiveDocument.Close;
  finally
    _Name := '';
  end;
end;
6 окт 17, 12:37    [20847868]     Ответить | Цитировать Сообщить модератору
 Re: Исходники на печать  [new]
_Vasilisk_
Member

Откуда: Украина, Харьков
Сообщений: 9740
Penner
свой код, без SysUtils.pas, DevExpress, Jedi....
Еще раз - определите термин "свой код"? Если Вас устроит определение "Все модули, которые включены в проект" то пишется простой эксперт, который напечатает Вам файлы. Если же "все модули, которые лежат в папке проекта" то еще проще - пишете bat файл
6 окт 17, 16:04    [20848816]     Ответить | Цитировать Сообщить модератору
 Re: Исходники на печать  [new]
JaDi
Member

Откуда: JayDi из Сызрани
Сообщений: 3016
незваныйГость,

зачем локальную _Name: WideString; затирать пустым значением в конце?
6 окт 17, 16:45    [20848987]     Ответить | Цитировать Сообщить модератору
 Re: Исходники на печать  [new]
незваныйГость
Guest
JaDi
незваныйГость,
зачем локальную _Name: WideString; затирать пустым значением в конце?

По инерции: создал динамическую переменную - очисть. Хуже от этого не будет. Хотя можно и не очищать.
6 окт 17, 17:51    [20849216]     Ответить | Цитировать Сообщить модератору
Топик располагается на нескольких страницах: Ctrl  назад   1 [2]      все
Все форумы / Delphi Ответить