Post-Build-Ereignis mit einer Variable

[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.

[hzzm]

Das ist der Fall. Kodierung beider Dateien UTF8 und ANSI probiert.
Quote.inc 1 Byte
ARBCompat.inc 3 Bytes

[himitsu]

Du musst ja nicht alles pur in der Console machen ... kleine Helferlein sind doch bestimmt erlaubt

Code:

WriteDelphiString abc "C:\...."

Delphi-Quellcode:

program WriteDelphiString;

{$APPTYPE CONSOLE}

uses SysUtils, IOUtils;

begin
  TFile.WriteAllText(ParamStr(2), QuotedStr(ParamStr(1)), TEncoding.Default);
end.

[hzzm]

Um mal meine letzte (meiner Meinung nach einfachste) Loesung des Problems zu Papier zu bringen:

In der ARBCompat.Inc:

Code:

'_24'

In der Post-Build .bat:
.Inc einlesen:

Code:

for /f %%a in ('more/e ^< "D:\My\Path\To\ARBCompat.inc"') do (
  if not defined line set "arbcompat=%%a"
)

Alle ' in Variable arbcompat durch nichts ersetzten:

Code:

set arbcompat=%arbcompat:'=%