Nicht benötigte Units bereinigen

[horstmeyer]

Hallo zusammen,

ich suche nach einer einfachen Möglichkeit alle Units zu finden, die im aktuellen Projekt nicht angeprochen und somit nicht benötigt werden. Hat einer einen Tipp wie man dies am einfachsten bewerkstelligen kann? Vielen Dank.

Viele Grüße
Horst Meyer

[Poelser]

Hallo,

CN-Pack installieren, das ereugt dir im Menü einen Uses-Cleaner.

LG Edmund

[Sinspin]

Hallo,

so einfach ist das allerdings nicht.
Units haben initialisation und finalization Abschnitte. Schon ihre reine Anwesenheit im Projekt kann also den Programmablauf beeinflussen.
Zum Beispiel Units die weitere grafik-datei-formate bereitstellen. Die registrieren sich selbst, werden aber scheinbar nirgendwo verwendet.

[BerndS]

Zitat:

Units haben initialisation und finalization Abschnitte.

Das kann man im CN-Pack Uses Cleaner recht gut einstellen und eine Liste zu überspringender Units ist auch enthalten.

[dummzeuch]

Alternativ könnte man die Map-Datei überprüfen, aber:

1. Ist das eine Menge manuelle Arbeit (ich kenne kein Tool dafür)
2. werden dort Units, die keinen Code enthalten, aber z.B. Resource-Strings nicht aufgeführt

[Uwe Raabe]

Pascal Analyzer (auch die Lite Version) gibt dazu eine Übersicht. Da wird auch eventueller Implementation Code berücksichtigt - da muss man dann halt reinschauen ob man den braucht.

[Delphi.Narium]

Ausführliche MAP-Datei erstellen, alle Zeile, die mit Line numbers for beginnen, raussuchen. Sie enthalten alle Units, aus denen etwas ins Kompilat übernommen wurden.

Sollte für den Anfang eigentlich erstmal ausreichen.

Und wenn ich das bei meinem ollen Delphi 7 richtig sehe, sind Units, die nur Resource-Strings enthalten, auch in der MAP-Datei aufgeführt. Jedenfalls finde ich in den MAP-Dateien von Programmen, die Indy nutzen auch die IdResourceStringsCore.pas, und die enthält (neben Kommentaren) nur Resource-Strings.

Mal eben in PascalScript hingedaddelt:

Delphi-Quellcode:

program Test;

procedure CheckUnits(sFile : String);
var
  i       : Integer;
  s       : String;
  slMap   : TStringList;
  slUnits : TStringList;
begin
  slMap := TStringList.Create;
  slMap.LoadFromFile(sFile);
  slUnits := TStringList.Create;
  for i := 0 to slMap.Count - 1 do begin
    if Copy(slMap[i],1,16) = 'Line numbers for' then begin
      s := Copy(slMap[i],18,1024);
      s := Copy(s,1,Pos('(',s) - 1);
      slUnits.Add(s);
    end;
  end;
  slUnits.Sort;
  sFile := ChangeFileExt(sFile,'.UsedUnits');
  slUnits.SaveToFile(sFile);
  slUnits.Free;
  slMap.Free;
end;

begin
  CheckUnits('Programmname.map');
end.

Sollte so übernommen werden können.

[Jens01]

https://github.com/norgepaul/DUDS

Mit dem Delphi Unit Dependency Scanner mache ich das.
Der zeigt, u.a. von wie vielen Units die einzelne Unit genutzt wird. Wenn man den Trick raus hat, dann kann man sehr schön alle unnötigen Units aus dem Projekt werfen.
Alle Units, die nur von einer Unit -also von der DPR- genutzt werden, sind unnötig.

[freimatz]

Warum einfach wenn es auch umständlich geht.

Das einzig sinnvolle:

Zitat von Poelser:

Hallo,

CN-Pack installieren, das ereugt dir im Menü einen Uses-Cleaner.

LG Edmund

[Uwe Raabe]

Zitat von freimatz:

Das einzig sinnvolle:

Na ja, da kann man sicher geteilter Meinung sein.