Konstante zur Kompilation aus Datei auslesen

[Bomberbb]

Hallo, ich hab da mal folgendes Problem. Ich würde im Prog gerne eine Konstante benutzen, die Ich während der Kompilation in einer Datei vorliegen habe. In meinem speziellen Fall ein String. Hab da auch eine Idee, wie es halbwegs funzt:

Delphi-Quellcode:

const
  teststring={$i testdatei.txt};

Leider muss ich nun bei dieser Datei am Anfang und am Ende ein ' haben, sonst gibt's Fehler.

Sieht jemand eine Möglichkeit, die Datei so wie sie ist mit in die EXE zu kompilieren???

Gruß

BBB

[edit=SirThornberry]Titel corrigiert - Mfg, SirThornberry[/edit]

[Sherlock]

Als Ressource, vielleicht?

Sherlock

[nahpets]

Hallo,

habe Dein Problem wohl nicht ganz verstanden.

Du möchtest den Inhalt von testdatei.txt der Konstanten teststring zuweisen?

Wo kommt die Datei testdatei.txt her? Kann sie nicht eventuell den "ganzen" Quelltext enthalten?

Im Programm:

Delphi-Quellcode:

const 
{$i testdatei.txt}

In testdatei.txt:
  teststring='mein gewünschter Wert';

[Bomberbb]

Ja ich möchte den gesamten Inhalt der Datei der Konstanten als String zuweisen.

[nahpets]

Hallo,

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

const textstring =
{$I textstring.inc}
;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(TextString);
end;

end.

Inhalt von textstring.inc:

Code:

'lalalal'

Funktioniert unter Delphi 7.

[Bomberbb]

Ja, aber nur solange die Datei mit ' beginnt und endet.

Hätte das aber gerne ohne die '

[SirThornberry]

so weit ist er selbst auch schon. Er will es aber so haben das ' am Anfang und Ende in der Datei nicht notwendig sind.

[jbg]

Das geht nicht. Und zudem sind String-Literale (auch noch unter Delphi 2009) auf 255 Zeichen beschränkt.

[nahpets]

Hallo,

eventuell läßt sich das Problem ja mit 'nem Delphiexperten lösen, 'nen Vorschlag dafür hab' ich mal angehangen.

Der Experte schaut im Projektverzeichnis nach, ob dort eine Datei testdatei.txt liegt, wenn ja, erstellt er die Datei testDatei.inc, die per {$I testDatei.inc} ins Projekt aufgenommen werden kann. Diese Includedatei einhält die erste Zeile aus der testdatei.txt, eingerahmt in '.

Im Quelltext kann das dann z. B. so aussehen:

Delphi-Quellcode:

const
  teststring = {$I testDatei.inc};

[edit]Von Andreas gefundenen Fehler korrigiert und neue Version angehangen[/edit]

[Bomberbb]

Ja an einen Experten hab ich auch schon gedacht. Werde wohl Deinen Lösungsvorschlag nutzten...

Danke