Texte in Quellcode einfügen

[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

[p80286]

Oh, vertan, es muß CRLF=#$0D0A heißen.
was das sLineBreak angeht, schön das es das als Konstante gibt, nur Delphi weiß es immer noch nicht
oder falsch gesucht??

Gruß
K-H

[uligerhardt]

Zitat von p80286:

was das sLineBreak angeht, schön das es das als Konstante gibt, nur Delphi weiß es immer noch nicht
oder falsch gesucht??

In der Delphi-Hilfe oder auf den Emba-Seiten hab ich's auch nicht gefunden.

[p80286]

Man muß nur lang genug suchen:

Delphi-Quellcode:

const
   sLineBreak = {$IFDEF LINUX} AnsiChar(#10) {$ENDIF}
      {$IFDEF MSWINDOWS} AnsiString(#13#10) {$ENDIF}
      {$IFDEF MACOS} AnsiChar(#10) {$ENDIF};

aus der SYSTEM.PAS von XE, bis 2006 gab es sLineBreak noch nicht.
(die Indys kanntes es wohl schon früher...)

Gruß
K-H

[himitsu]

Zitat von p80286:

Oh, vertan, es muß CRLF=#$0D0A heißen.

Immernoch nicht ganz richtig.
CRLF=#$0D#$0A oder CRLF=#13#10
Das sind ja zwei Chars mit $0D und $0A, bzw. $000D und $000A bei Unicode und nicht ein Unicode-Char mir $0D0A.

[p80286]

Zuviel Kalk im Hirn

Pardon
K-H