Post-Build-Ereignis mit einer Variable

[himitsu]

Irgendwo ins Programm {$INCLUDE 'version.inc'} oder {$I 'version.inc'} und die version.inc const meinstring = '132'; .

oder const {$INCLUDE 'version.inc'} und die version.inc meinstring = '132';
oder const {$INCLUDE 'version.inc'}; und die version.inc meinstring = '132'
oder const meinstring = {$INCLUDE 'version.inc'}; und die version.inc '132' .
Diese Stringkonstante lässt sich auch fast überall anders verwenden var meinstring: string = {$INCLUDE 'version.inc'}; oder MeineProcedure({$INCLUDE 'version.inc'}); .
Und auch mehrere Konstanten/Variablen wären möglich.

Und diese INC lässt sich sehr einfach neu generieren oder bearbeiten.
In unserem Erstellungsscript (FinalBuilder) lass ich eine INC mit mehreren Konstanten im FinaBuilder generieren und speichern.
Einfach aus einem Text mit mehreren FB-Variablen drin, worin die Versionsnummer, die ausgecheckte SVN-Revision und der Repository-Name (der letzte Ordnername aus dem SVN-Verzeichnis) womit man beim Kunden nachsehen kann welche Version bei ihm genau installiert ist, wenn es mal Probleme gibt. (wird im InfoDialog mit ausgegeben)

[Uwe Raabe]

Alternativ bietet sich auch eine String-Resource in einer RC-Datei an. Oder man bindet den String als resourcestring ein und extrahiert diesen dann z.B. mit Angus Johnson's ResourceHacker oder einem ähnlichen Tool.

[himitsu]

resourcestring klingt nett, aber blöd ist eben, dass man ihn suchen muß, er bei jedem Kompilieren einen anderen Index haben kann und man ihn nur über den unbekannten Index oder seinen Inhalt finden kann.

[Uwe Raabe]

Zitat von himitsu:

resourcestring klingt nett, aber blöd ist eben, dass man ihn suchen muß, er bei jedem Kompilieren einen anderen Index haben kann und man ihn nur über den unbekannten Index oder seinen Inhalt finden kann.

Wenn man allerdings dem Compiler ein -GD oder --drc mitgibt, dann findet man den resourcestring in der so erzeugten drc Datei unter dem Namen <unit>_<resourcename> auch im Klartext wieder. Spart den ResourceHacker und lässt sich z.B. über einen simplen Grep-Befehl extrahieren.

[hzzm]

Ich haette gerne

Code:

ARBCompat: String = '{$I ARBCompat.inc}';

weil ich in allem dahinter eigentlich nur den puren String-Inhalt brauche.
In batch regex replace und so wird einfach unnoetig komplex zu warten, ganz zu schweigen vom Drama in meinem Installer-Compiler.

Natuerlich funktionert das so nicht.
Gibt's irgendeinen schmutzigen Trick, durch den ich in der .inc wirklich nur den puren Inhalt _24 aufbewahren kann?

Ich habe es erfolglos so probiert:

Code:

ARBCompat: String = {$I Quote.inc}{$I ARBCompat.inc}{$I Quote.inc};

In Quote.inc ' oder ".
und bekomme mit ': Nicht abgeschlossener String und mit ": Ungueltiges Zeichen in Eingabedatei.

[nahpets]

Mein Delphi 7 kompiliert das ARBCompat: String = {$I Quote.inc}{$I ARBCompat.inc}{$I Quote.inc}; , wenn die Datei Quote.inc nur ein ' enthält, also ein Byte groß ist.

Wenn sie jedoch hinter dem ' noch 'nen Zeilenumbruch enthält, geht das nichtmehr. Die Datei müsste dann mindestens 3 Byte groß sein.

[hzzm]

Ich hab' gerade erst im Forum User-Profil meine delphi ver eingestellt, sorry.

Bin auf Seattle, Quote.inc ist bei mir 1 Byte gross.
Weder mit ANSI-Kodierung noch mit UTF-8 ohne BOM-Kodierung von Quote.inc geht es bei mir.

[nahpets]

Die ARBCompat.inc darf am Ende keinen Zeilenumbruch enthalten, beim Inhalt _42 darf sie nur 3 Byte groß sein.