In pascal multiple line string possible

[Packs]

In pascal multiple line string.

[Handoko]

Did you mean this:

Code: Pascal  [Select][+][-]

1. procedure TForm1.Button1Click(Sender: TObject);
2. var
3.   S: string;
4. begin
5.   S := 'This is a'            + LineEnding +
6.        'multiple line string' + LineEnding +
7.        'in Pascal.';
8.   ShowMessage(S);
9. end;

[Packs]

Ok.

Thank you 🙏

[Warfley]

If I have to write a lot of lines I personally use a macro:

Code: Pascal  [Select][+][-]

1. {$Macro On}
2. {$Define ln:=+LineEnding+}
3.  
4. const
5.   MyString =
6.     'Line1'ln
7.     'Line2'ln
8.     'Line3'ln
9.     'Line3';

[Handoko]

Nice trick!

[Packs]

Thank you 🙏

[Thaddy]

I would not use that macro with that name, since ln is also a system function.
Macro fine, name not. Try al or something.

[Warfley]

Usually when I'm at the point where I need extended string constants in my code, I often put them in their own unit, with no code, so the macros don't really matter at all.

But yeah, generally short macros can be dangerous as its likely they collide with other existing names, an alternative is to undef the macro after use

[Thaddy]

Usually I use an include. Similar.

[LV]

#13#10(win) = #10(Linux) = #13(MacOS) = sLineBreak

https://forum.lazarus.freepascal.org/index.php?topic=57659.0

syswinh.inc 

Code: Pascal  [Select][+][-]

1. const
2.  LineEnding = #13#10;
3. ...
4. sLineBreak = LineEnding;
5.  

[jamie]

If I have to write a lot of lines I personally use a macro:

Code: Pascal  [Select][+][-]

1. {$Macro On}
2. {$Define ln:=+LineEnding+}
3.  
4. const
5.   MyString =
6.     'Line1'ln
7.     'Line2'ln
8.     'Line3'ln
9.     'Line3';

Hmm, "ln" = natural logarithm

Jamie

[Thaddy]

Warfley already answered that and added an alternative.

[Remy Lebeau]

Delphi 12.0 introduced Multi-line String Literals, for example:

Code: Pascal  [Select][+][-]

1. const
2.   MyString = '''
3.    Line1
4.    Line2
5.    Line3
6.    Line4
7.  ''';

Maybe FreePascal will add something like this someday.

[Thaddy]

There is actually a patch for that, that I tested and confirmed to work, but it used back-ticks..
It is horrible, though. Refused for all the right reasons. But the code is available and working (syntax being not relevant to implementation)
The Delphi case should be refused too...
I have inline var syndrome, mind... Silly idiots.

[MarkMLl]

There is actually a patch for that, that I tested and confirmed to work, but it used back-ticks..

Which visually is probably not a bad choice: sequences of '""' etc. "get old fast".

I know that the core team is inclined to tell us to put multilines into resource files, but I maintain- impenitently and from experience- that they are wrong. If you're writing Pascal code that relies on- for example- an SQL fragment, the place to put that fragment is adjacent to the associated Pascal: and that's also the place to put the comments explaining what the combination is doing.

Unless, of course, somebody would like to argue that comments should be moved out of the unit and into a file of their own?

MarkMLl