Alle Units eines Projektes drucken

[Captnemo]

Ich möchte / muss alle Units eines Projektes bzw. einer Projektgruppe ausdrucken.
Sind insgesamt zur Zeit 92.

Gibt es in Delphi XE4 eine Möglichkeit diese alle auf einen Rutsch zu drucken, oder muss man tatsächlich alle einzeln drucken?

Zeilennummern/Systax/Header brauche ich, deswegen muss ich mit Delphi drucken.

[Sir Rufo]

Brauchst du das für eine Dokumentation?

Würde da auch ein HTML reichen (evtl. dann sogar ohne Drucken)?

Dann schau dir mal MarkDown an. Da kopierst du dir die Dateien (per Batch oder wie auch immer) in eine Textdatei und bekommst davon wahlweise eine HTML Seite oder ein PDF-Dokument.

Zeilennummern, Syntaxhighlight alles inkl.

[himitsu]

Es gibt doch so Makroprogramme ... du mußt nur alle Dateien öffnen und dann 92 Mal folgende Tastencodes senden :stupid:
Alt+D > R > Enter > Strg+F4 > ...

Oder du schreibst dir ein OTA-Addon und steuerst es von innen.

Zitat:

in eine Textdate

Aber da gehen doch die Zeilennummern kaputt?

[Sir Rufo]

Zitat:

Zitat von himitsu (Beitrag 1294266)

Zitat:

in eine Textdate

Aber da gehen doch die Zeilennummern kaputt?

Ist das so?

Code:

# Ein Projekt

## foo.pas

```pascal
unit foo;

interface

uses
  Bar;
  
type
  /// <summary>
  /// Eine klasse Klasse
  /// </summary>
  TFoo = class
  public
    constructor Create;
  end;
  
implementation

procedure TFoo.Create;
begin
  inherited;
  
end;

end.
```
## foo.php
```php
<?php
class foo
{
  function bar() 
  {
  
  }
}
?>
```

[Bernhard Geyer]

Zitat:

Zitat von Captnemo (Beitrag 1294263)

Ich möchte / muss alle Units eines Projektes bzw. einer Projektgruppe ausdrucken. ...

Du bist wohl einer dieser Internetausdrucker :roll:

Was ist der Sinn in 2015 den Quellcode eines Programms aus Papier gedruckt zu haben?
Ich mach das ab und zu um Quellcode die durch das Antipattern "Copy and paste programming" entstanden sind aufzulösen. Das sind aber meist nur 2-4 Seiten ...

[jaenicke]

Notepad++ macht das gut. Inklusive Syntaxhighlighting, Zeilennummern (muss in den Einstellungen aktiviert werden) und anpassbarer Kopf- und Fußzeile.
Dafür muss nur das Plugin "Print all" über den Pluginmanager heruntergeladen werden. Das druckt dann alle offenen Dateien auf den Standarddrucker.

[Popov]

Nur mal als Idee (schließlich bist du ein Programmierer):

Delphi-Quellcode:

uses
  ShellApi;

procedure GetFiles(Path, Ext: String; List: TStrings);
var
  SR: TSearchRec;
begin
  Path := IncludeTrailingBackslash(Path);

  if FindFirst(Path + '*.' + Ext, faAnyFile, SR) = 0 then
  repeat
    List.Add(Path + SR.Name);
  until FindNext(SR) <> 0;

  SysUtils.FindClose(SR);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  sl: TStringList;
  Path, Ext: String;
  i: Integer;
begin
  sl := TStringList.Create;
  try
    Path := ExtractFilePath(ParamStr(0));
    Ext := 'pas';

    GetFiles(Path, Ext, sl);

    for i := 0 to sl.Count - 1 do
      ShellExecute(0, 'open', 'NOTEPAD.EXE', PChar('/p ' + sl[i]), nil, SW_NORMAL);
  finally
    sl.Free;
  end;
end;

Wird zwar über Notepad ausgedruckt, aber wenn das kein Hindernis ist...

[jaenicke]

Zitat:

Zitat von Popov (Beitrag 1294273)

Wird zwar über Notepad ausgedruckt, aber wenn das kein Hindernis ist...

Ist es aber, denn die Anforderung waren Syntaxhighlighting und Zeilennummern. ;-)

[Captnemo]

Zitat:

Zitat von Bernhard Geyer (Beitrag 1294268)

Zitat:

Zitat von Captnemo (Beitrag 1294263)

Ich möchte / muss alle Units eines Projektes bzw. einer Projektgruppe ausdrucken. ...

Du bist wohl einer dieser Internetausdrucker :roll:

Was ist der Sinn in 2015 den Quellcode eines Programms aus Papier gedruckt zu haben?
Ich mach das ab und zu um Quellcode die durch das Antipattern "Copy and paste programming" entstanden sind aufzulösen. Das sind aber meist nur 2-4 Seiten ...

Nur zu deiner Info: Ich muss das aktuelle Projekt meinem Kunden in elektronischer und in Papierform bei Projektabschluss übergeben, dass ist nunmal Teil des Vertrags und kann von mir auch nicht umgangen werden. Natürlich kann man das auch über Notepad o.ä. machen, aber dann halt ohne Syntaxformatierung, Zeilenummer und Einfärbung.
Bevor du also mit den Augen rollst! Ich habe einen Grund für diese Frage.

Allen Anderen danke ich für die (themabezogenen) Informationen. Denen ich entnehme, das es unter Delphi direkt also nur die Möglichkeit gibt einzelne Dateien auszudrucken. Dafür was zu Programmieren, könnte ich machen, aber die Möglichkeit mit Notepad++ finde ich interessant und werde das mal probieren.
MarkDown klingt auch gut, und als PDF kann ich das ja auch ausdrucken. Das schaue ich mir auch mal.

Vielen Dank
Gruß Dieter

[Bernhard Geyer]

Zitat:

Zitat von Captnemo (Beitrag 1294279)

Nur zu deiner Info: Ich muss das aktuelle Projekt meinem Kunden in elektronischer und in Papierform bei Projektabschluss übergeben, dass ist nunmal Teil des Vertrags und kann von mir auch nicht umgangen werden.

Ich bezweifle das der Auftraggeber mit Papierform einen gedruckten Quellcode gemeint hat. Frag lieber nochmal nach ob das genau so gemeint ist. Evtl. ist mit Papierform "nur" ein Handbuch, eine Beschreibung der Systemarchitektur oder ähnliches gemeint.