Forum: Die Delphi-IDE
by p80286,
21. Sep 2012
:oops::oops:
Zuviel Kalk im Hirn
Pardon
K-H
Forum: Die Delphi-IDE
by p80286,
21. Sep 2012
Man muß nur lang genug suchen:
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...)
Forum: Die Delphi-IDE
by p80286,
21. Sep 2012
Dann nimm den Text als const auf:
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...
Forum: Die Delphi-IDE
by p80286,
21. Sep 2012
Eine andere Möglichkeit wäre:
const
text1='erste Zeile';
text2='zweite zeile';
text3='unbekannter Fehler';
tea=array of string=('0123456789','noch mehr ');