Texte in Quellcode einfügen

[franktron]

Kennt einer von euch eine Möglichkeit Textdateien in den Quellcode einzufügen und zwar so.

z.b.

Delphi-Quellcode:

StringList.Add('Zeile1');
StringList.Add('Zeile2');
StringList.Add('Zeile3');
.....

[QuickAndDirty]

Man kann sie z.b. als Resource in die Exe eincompilieren und über HInstance und Resourcenname darauf zugreifen.

[p80286]

Eine andere Möglichkeit wäre:

Delphi-Quellcode:

const
  text1='erste Zeile';
  text2='zweite zeile';
  text3='unbekannter Fehler';

  tea=array [0..2] of string[10]=('0123456789','noch mehr ');

Ist es das was Du wolltest?

Gruß
K-H

[Bummi]

wir bevorzugen ebenfalls die Resourcen

Anhand eines Beispiels

Delphi-Quellcode:

{$R 'MySQLS.res' 'resources\MySQLS.rc'}



function LoadSqlResource(resourceName: string): string;
var
  rs: TResourceStream;
  sl, sl2 : TStringList;
  s : string;
begin
  rs := nil;
  sl := nil;
  sl2 := nil;

  try
    sl := TStringList.Create;
    sl2 := TStringList.Create;
    rs := TResourceStream.Create(hinstance, resourceName, RT_RCDATA);

    rs.Position := 0;
    sl.LoadFromStream(rs);

    for s in sl do
    begin
      if not StartsText('--', s) then
        sl2.Add(s);
    end;
  finally
    if Assigned(sl) then sl.Free;
    if Assigned(rs) then rs.Free;
  end;

  Result := sl2.Text;
  if Assigned(sl2) then sl2.Free;
end;

im Unterordern resources eine Datei MySQLS.rc mit Inhalt

Code:

ModuleCodes_Selectieren         RCDATA "SelModuleCodes.sql"
OffenePosten_Belege_Selectieren RCDATA "SelOffenePostenBelege.sql"
OffenePosten_Kunden_Selectieren RCDATA "SelOffenePostenKunden.sql"
Kundeninfo_Selectieren          RCDATA "SelKundeninfo.sql"
Rechnungen_Selectieren          RCDATA "SelRechnungen.sql"
Kreditor_Selectieren            RCDATA "SelKreditor.sql"

, sowie die aufgeführten Dateien aus obiger Datei

[Uwe Raabe]

Zitat von franktron:

Kennt einer von euch eine Möglichkeit Textdateien in den Quellcode einzufügen und zwar so.

z.b.

Delphi-Quellcode:

StringList.Add('Zeile1');
StringList.Add('Zeile2');
StringList.Add('Zeile3');
.....

Der ModelMaker Code Explorer hat dazu einen multi line surround wizard, mit dem man das ganz hervorragend lösen kann.

[franktron]

Zitat von Uwe Raabe:

Zitat von franktron:

Kennt einer von euch eine Möglichkeit Textdateien in den Quellcode einzufügen und zwar so.

z.b.

Delphi-Quellcode:

StringList.Add('Zeile1');
StringList.Add('Zeile2');
StringList.Add('Zeile3');
.....

Der ModelMaker Code Explorer hat dazu einen multi line surround wizard, mit dem man das ganz hervorragend lösen kann.

Und wo finde ich das. Ich habe BDS XE2 Pro

[himitsu]

Oder pack den Text in eine TEXT-Resource ... dort kannst du das ohne Probleme direkt reinkopieren, oder es über eine .txt-Datei dort einbinden.

Es kommt drauf an wie groß deine Datei ist, aber direkt im Quellcode bekommst du eventuell Probleme ... zuviele lokale Konstanten
(da wird sich mit Sicherheit was über die Forensuche zu finden lassen)

[franktron]

Das mit den Res ist mir schon bekannt aber ich will wirklich Textzeilen die den Quelltext einbauen, die Zeile sind nicht so gross und der Umgang mit den Res würde wesentlich mehr Code produzieren.

Ausserdme hat man das öfftermal schnell einen Text kopieren und dann einfügen, und dann jedesmal immer wieder z.b. Stringlist.add('text') zu machen nervt einfach.

[p80286]

Dann nimm den Text als const auf:

Delphi-Quellcode:

const
  mytext='ModuleCodes_Selectieren        RCDATA "SelModuleCodes.sql" '+
         'OffenePosten_Belege_Selectieren RCDATA "SelOffenePostenBelege.sql"'+
         'OffenePosten_Kunden_Selectieren RCDATA "SelOffenePostenKunden.sql"'+
         'Kundeninfo_Selectieren         RCDATA "SelKundeninfo.sql"'+
         'Rechnungen_Selectieren         RCDATA "SelRechnungen.sql"'+
         'Kreditor_Selectieren           RCDATA "SelKreditor.sql"';

oder

Delphi-Quellcode:

const
  CRLF=$0D0A
  mytext='ModuleCodes_Selectieren        RCDATA "SelModuleCodes.sql" '+CRLF+
         'OffenePosten_Belege_Selectieren RCDATA "SelOffenePostenBelege.sql"'+CRLF+
         'OffenePosten_Kunden_Selectieren RCDATA "SelOffenePostenKunden.sql"'+CRLF+
         'Kundeninfo_Selectieren         RCDATA "SelKundeninfo.sql"'+CRLF+
         'Rechnungen_Selectieren         RCDATA "SelRechnungen.sql"'+CRLF+
         'Kreditor_Selectieren           RCDATA "SelKreditor.sql"';

Gruß
K-H

[uligerhardt]

Zitat von p80286:

Delphi-Quellcode:

const
  CRLF=$0D0A

System.sLineBreak