Automatisches Ersetzten von VCL Komponenten in pas und dfm?

[EDatabaseError]

seit halt nich so genau das RAD Studio eben

[EDatabaseError]

Zitat von nahpets:

Hallo,

ja, dass habe ich auch schon gesucht (und nicht gefunden).

Schnellschussantwort:

UltraEdit und über alle *.pas und *.dfm-Dateien ein Globalchange absetzen. (Es darf auch ein anderer Editor sein )
Da TTable und TAdoTable nicht so ganz kompatibel sind, musst Du aber bei so einem globalen Ersetzen mit einer nicht unerheblichen "Fehlermenge" rechnen, wobei die Unterschiede bei TQuery und TAdoQuery wohl größer sind.

Alternative: selbstschreiben:

OpenDialog mit Multiselect:

'ne Stringliste zum Laden der Dateien per Schleife:

Delphi-Quellcode:

sl.LoadFromFile(od.FileName);
sl.Text := AnsiReplaceText(sl.Text,'TTable','TAdoTable'); // Ist nicht das Schnellste, für 'nen Einmaljob aber ausreichend.
sl.SaveToFile(od.FileName);

Eventuell noch vor dem Schreiben ein Backup der alten Datei machen.

Aufwand: halbe Stunde mit testen, Vorteil:

Du kannst das Programm um weitere Ersetzungen anpassen.

Ich muss das ganze jetzt nochmal rauskramen^^.. Wollte das jetzt mit UltraEdit machen da es mit selbergeschrieben oder Refactor nicht ordentlich geklappt hat.
Nur wenn ich die Datei in UltraEdit öffne wird die dfm Datei nicht korrekt dargestellt. Kann ich irgentwas an UltraEdit verdrehen oder gibt es eine andere Möglichkeit alle DFMs in das Text DFM Format zu wandeln?

Tobi

[Namenloser]

Zitat von Meflin:

Jupp, es gibt tatsächlich eine entsprechende Refactoring-Methode dafür (siehe Anhang) - mit deinem Delphi 7 wirst du da allerdings nicht glücklich

Das funktioniert aber nur für selbstdeklarierte Klassen, nehme ich an?

[EDatabaseError]

Jaa..aber Refactoring muss man auch jedes mal neu anschucken.. und bei 81 DFMs ..
Hab noch nicht die optimale Lösung gefunden :/

[Michael Habbe]

Mal überlegen...
Ich habe 1999 eine Anwendung unter Delphi 2 mit über 300 (!) Formularen von TTable auf TAdsTable umgestellt. Dazu musste ich jedes Formular einzeln erstmal öffnen, um sicherzustellen, dass es auch als Text gespeichert wurde. Das heisst, konnte es auf Text umgestellt werden? Ich weiss nicht mehr. Kann auch sein, dass ich die Ersetzmethode von Delphi benutzt habe.

Nun bin ich mir nicht mehr sicher, aber dadurch, dass ich jedes Formular einzeln angreifen musste, habe ich wie kein anderer die Anwendung kennengelernt.

Es mussten einige Dinge angepasst werden: Typ, Database, Tabellenname, Filter, Optionen, ...

Dann bleiben da natürlich Dinge auf der Strecke, die erst hinterher auffallen beim Compilieren oder noch später: die Dinge, die zur Laufzeit erzeugt werden, wie z.B. Mehrfachnutzung einer Table mit Setzen der Eigenschaften zur Laufzeit.


Leider kann ich nicht mehr sagen, wie lange ich dabeigesessen habe. Aber so 2 Monate waren das bestimmt.

[Hawkeye219]

Hallo Tobias,

Zitat von EDatabaseError:

Kann ich irgentwas an UltraEdit verdrehen oder gibt es eine andere Möglichkeit alle DFMs in das Text DFM Format zu wandeln?

im bin-Verzeichnis deiner Delphi-Installation sollte sich ein Programm namens "convert.exe" befinden, das Formulare vom Binär- ins Textformat (und zurück) konvertieren kann. Wenn du es ohne Parameter aufrufst, erscheint eine kleine Hilfe.

Gruß Hawkeye

[fkerber]

Hi!

Jenachdem was schneller geht, tut es auch ein Rechtsklick im Formular und dort dann das Häkchen bei Text-DFM!


Ciao, Frederic

[EDatabaseError]

Bei 81 Dateien lohnt es sich convert zu nutzen. Einfacher Aufruf per convert -i -t C:\Delphiprojekt\*
Funktioniert spitze.

Tobi

[Sunlight7]

Zitat von Michael Habbe:

Das heisst, konnte es auf Text umgestellt werden?

Nö, kann es nicht

[Bebe]

Wie schon erwähnt hat GExpert diese Funktion. Damit kannst du auch alle Dateien in einem Projekt bearbeiten, habe ich aber nie ausprobiert. Ich habe lediglich Komponente für Komponente ausgetauscht und das funktioniert tadellos.

Siehe Anhang.

Gruß
Matze