Passende Unit zur Funktion finden

[Stevie]

Zitat von Harry Stahl:

[...] die Meldung lautet aber nur "No Unit found for identifier TMemoryStream". [...]

Liegt die typecache.dat neben der DelphiUsesHelper.bpl? Nur dann wird sie auch verwendet.

[nahpets]

Hallo,

habe mal ein bisserl rumgedaddelt, da ich so 'ne Funktionalität eigentlich auch schon immer gesucht habe.

Es ist ein kleines Programm (mit Delphi 7) dabei herausgekommen, dass ich mir unter Tools in die IDE aufgenommen habe.

Was macht das Programm:

Zuerst benötigt es einen Platz auf der Festplatte. Es muss dort Unterverzeichnisse anlegen dürfen und beliebige Dateien erstellen können (sonst wird's nix).

Beim ersten Start sorgt es dort für die erforderliche Verzeichnisstruktur. Der Anwender wähle dann bitte über den Schalter "Verzeichnis auswählen" (oder Taste F4) das Verzeichnis aus, in dem sich die Quelltextdateien befinden. Anschließend ist der Schalter "Daten aktuallisieren" (oder Taste F5) zu betätigen.

Nun werden alle Dateien mit der Dateiendung ".pas" gelesen. Zuerst wird geprüft, ob die Zeichenfolge "Unit" enthalten ist, fehlt diese, wird die Datei ignoriert.
Nun wird zeilenweise gelesen und geprüft, ob eine Zeile mit "Function" oder "Procedure" beginnt (Groß-/Kleinschreibung ist egal).
Die entsprechenden Zeilen werden aufgeteilt in:
"function" bzw. "procedure".
Sofern es eine "(" in der Zeile gibt, ist alles davor der Name und der Rest der Zeile wird als Parameter interpretiert. Mehrzeilige Parameterlisten werden nicht übernommen.
Fehlt die "(", wird nach 'nem ":" geschaut, alles bis dorthin ist dann der Name, der Rest wird als Parameter interpretiert.
Fehlen "(" und ":" wird nach einem ";" geschaut. Alles bis dorthin wird zum Namen, Parameter gibt's dann nicht.
Das ist so nicht perfekt, aber mehr gibts nicht und es sollte so für die meisten Sachen reichen.
Ist halt 'n Schnellschuß.

Wird die Zeichenfolge "implementation" gefunden, so endet die Verarbeitung der Datei.

In die "Datenbank" werden aufgenommen:

1. Typ ("function" bzw. "procedure")
2. Name
3. Parameter
4. die zugehörige Unit
5. Dateiname der Unit mit Pfad

Durch die wiederholte Auswahl von Verzeichnissen und der anschließenden Aktuallisierung, lassen sich auch Daten aus unterschiedlichen Quellen in die "Datenbank" einfügen.
Dauert die Aktuallisierung zu lang, lässt sie sich über den Schalter "Aktuallisierung abbrechen" eben abbrechen. Die Tabelle kann auch über den Schalter "Tabelle leeren" geleert werden. Einer anschließenden Neubefüllung steht dann nichts entgegen.
Wird ein Verzeichnis mehrfach ausgewählt und in die Tabelle eingefügt, so sollten keine Dubletten entstehen, da bei der Befüllung zuerst geschaut wird, ob es die Kombination aus Name und Unit schon gibt. Diese wird dann aktuallisiert.
Es wird aber nicht erkannt, ob eine Unit eine Funktion bzw. Prozedur bei einer Aktuallisierung nicht mehr enthält.

Es gibt ein Eingabefeld, in dem man halt seine Suche durchführen kann, einfügen per Copy&Paste für die Suche funktioniert. Groß-/Kleinschreibung ist nicht von Bedeutung. Rechts neben dem Eingabefeld werden der Name der gefunden Funktion/Prozedur und die zugehörige Unit angezeigt. Ein Doppelklick auf den Namen kopiert die Namen der Unit in die Zwischenablage.

Über den schwarzen Pfeil oben links im Grid kann man die anzuzeigenden Spalten auswählen, die Spaltenreihenfolge kann durch verschieben verändert werden. Diese Konfiguration wird im Unterverzeichnis "Config" des Programmes gespeichert. Sollte sie mal zerschossen sein, einfach dort die Datei löschen.
Die übrige Konfiguration wird in der Registry gespeichert, wer das nicht mag, nutze das Programm nicht.
Die "Datenbank" befindet sich nach dem ersten Aufruf im Verzeichnis "Data".

Support gibts nicht, Änderungsanforderungen werden ignoriert. Das Programm ist wie es ist. Eventuell kann ja wer was damit anfangen, wenn nicht, dann nicht.

---
Habe noch einen Fehler bei der Befüllung der "Datenbank" gefunden, daher können dort Dubletten enthalten sein.
Neue Programmversion hängt an.
Bitte vorm Programmstart die Datei "Funktionsverzeichnis.kbmt" im Verzeichnis "Data" löschen und die Daten neu in die "Datenbank" aufnehmen.

[Harry Stahl]

Zitat von nahpets:

Es ist ein kleines Programm (mit Delphi 7) dabei herausgekommen, dass ich mir unter Tools in die IDE aufgenommen habe.

Support gibts nicht, Änderungsanforderungen werden ignoriert. Das Programm ist wie es ist. Eventuell kann ja wer was damit anfangen, wenn nicht, dann nicht.

Funktioniert soweit und wenn ich jetzt kurz Hinweise gebe, sehe es bitte nicht als Änderungsanforderung sondern als einfache Mitteilung über das, was mir auffiel:

* Nach erneutem Start speichert das Programm die ganze Datenbank nach Beendigung, auch wenn man nur gesucht hat (also nichts hinzugefügt hat)
* Funktionen in Records bzw. "Class Procedures" bzw. "Class Functions" werden beim Parsen anscheinend übersehen?
* Die ganze Liste braucht man eigentlich nicht anzuzeigen, kostet nur Arbeitsspeicher und Ladezeit, Suchergebnisse sollten reichen.

Jedenfalls vielen Dank für Deinen Beitrag und die Zurverfügungstellung Deines Programms.

[nahpets]

Zitat von Harry Stahl:

* Nach erneutem Start speichert das Programm die ganze Datenbank nach Beendigung, auch wenn man nur gesucht hat (also nichts hinzugefügt hat)

Ja, das hat die Speichertabelle, die ich da nutze, so an sich
OK, hab' ich geändert, jetzt wird nach dem Aktuallisieren gespeichert, beim Beenden aber nicht mehr.

Zitat von Harry Stahl:

* Funktionen in Records bzw. "Class Procedures" bzw. "Class Functions" werden beim Parsen anscheinend übersehen?

Nö, da wird garnicht erst nach geguckt. Interessieren tuen nur Zeilen, die mit "function" oder "procedure" beginnen.
OK, jetzt werden auch Zeilen beachtet, die mit "class function" bzw. "class procedure" beginnen.
Damit's in der Tabelle keinen "Strubbel" gibt, bitte die Datei "Funktionsverzeichnis.kbmt" im Verzeichnis "Data" (unterhalb des Programmverzeichnisses") löschen und nach dem Programmstart neu befüllen lassen.

Zitat von Harry Stahl:

* Die ganze Liste braucht man eigentlich nicht anzuzeigen, kostet nur Arbeitsspeicher und Ladezeit, Suchergebnisse sollten reichen.

Nö, die "Datenbank" existiert nur im Arbeitsspeicher, ob sie nun im Grid angezeigt wird oder nicht, belegt keinen zusätzlichen Speicher.
OK mit F12 kann man sie jetzt anzeigen oder verstecken und das Programm merkt sich auch beim Beenden diese Einstellung.

Neue Version ist im vorherigen Post.

[Harry Stahl]

Zitat von Stevie:

Zitat von Harry Stahl:

[...] die Meldung lautet aber nur "No Unit found for identifier TMemoryStream". [...]

Liegt die typecache.dat neben der DelphiUsesHelper.bpl? Nur dann wird sie auch verwendet.

OK, das war es, jetzt funktioniert es.

Beim schnellen Lesen habe ich in Deiner Erläuterung das "besides it" noch auf "beside the exe" bezogen, aber genauer betrachtet, bezog es sich natürlich auf die DelphiUserHelper.bpl.

Was mir an dem Tool gut gefällt, ist, dass der Ergebnis-Dialog mir anbietet, die gefundene Unit direkt im interface oder implementation Abschnitt einzufügen. Das ist sehr komfortabel, da ich meine aktuelle Arbeitsposition nicht wechseln muss.

Ich verkneife mir hier (mühsam) jeglichen Feature-Request, aber falls Du irgendwann mal Langeweile haben solltest, dann wäre das sicher ein schönes Projekt, das man evtl. noch erweitern könnte...

... und womit man sogar die ganze Delphi-Community weiter voran bringen würde, da wir dann noch mehr RAD könnten...