Mehrzeilige Stringkonstante

DelphMan · Beiträge: 57

Hallo,

mich stört derzeit das Rumgeeiere der Form:

Delphi-Quelltext

1:
2:
3:
4:

var s:string;
...
s:='Zeile 1'+#13+#10+
   'Zeile 2'+#13+#10;

Gibts es nicht sowas wie:

markieren

Quelltext

1:
2:

s:=[[Hier ein String selbst mit einfachen Anführungszeichen: ' !
   und mit einer weiteren Zeile.]];

Ich suche also die magischen Sonderzeichen, mit denen ich mehrzeilig
im Delphi-Quellcode Strings definieren kann, die selbst sogar ohne
Escapezeichen: " und ' enthalten dürfen.

In Perl gibt es z.B. solche Hilfskonstrukte wie z.B.

markieren

Quelltext

1:
2:
3:
4:
5:
6:

$a = <<"EOF";
Zeile 1
Zeile 2
Böse Zeichen " '
EOF
echo $a;

Gibt dann aus:

Zeile 1
Zeile 2
Böse Zeichen " '

Gruß

DelphMan

wulfskin · Verfasst: Sa 28.10.06 19:19

Hallo,

so geht es:

markieren

Delphi-Quelltext

1:
2:

const
  ABC = 'Zeile1' + #13#10 + 'Zeile2';

Hilfe hätte allerdings auch was gebracht...
Escapezeichen kenne ich nicht, dafür gibt es dann diese Raute...

Gruß Hape!

_________________
Manche antworten um ihren Beitragszähler zu erhöhen, andere um zu Helfen.

DelphMan · Beiträge: 57

Tut mir leid, aber die Antwort verstehe ich jetzt leider nicht so ganz.

Lannes · Verfasst: Sa 28.10.06 19:46

Hallo,

die Anregung von user profile icon

wulfskin noch etwas erweitert:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

const
  Ap =  '''';
  CR =  #13#10;
  ABC = 'Zeile 1'+CR+
        'Zeile 2'+CR+
        'Böse Zeichen " '+Ap+CR+
        'EOF';

Finde ich übersichtlicher als dieser Hilfskonstrukt von Perl: :nut:

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:

$a = <<"EOF";  
Zeile 1  
Zeile 2  
Böse Zeichen " '  
EOF    
EOF  
echo $a;

Ich kenn Perl nicht, kann ich so auch EOF als String ausgeben?

_________________
MfG Lannes
(Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )

DelphMan · Beiträge: 57

Ah, joar, auch eine Idee, auf jeden Fall besser als bisher! Danke!

Ja, man kann in Perl auch "EOF" ausgeben, dann schreibt man:

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:

$a = <<"DerStringKommtNie";  
Zeile 1  
Zeile 2  
Böse Zeichen " '  
EOF  
DerStringKommtNie
echo $a;

marvin190 · Verfasst: Sa 28.10.06 19:54

Hallo!

Ab Delphi 7 (vielleicht auch 6) lässt sich das doch wirklich unschöne #10#13 auch durch sLineBreak ersetzten

_________________
Mfg Marvin
Carpe Diem! - Genieße den Tag! - [gr. Horaz]

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme