How to convert TStrings to String?

[laznoob32]

I have a memo that the user can write a paragraph in and I have a button which when clicked adds the paragraph in Memo1 to Edit1. The problem is, the both handle different data types: TStrings and AnsiString respectively. Is there a simple way to resolve this issue?

Thanks in advance.

[marcov]

add .text.   

Tstrings is a list of strings, and its .text parameter concatenates hem together. (or parsers one string into multiple ones, the other way around)

[laznoob32]

add .text.   

Tstrings is a list of strings, and its .text parameter concatenates hem together. (or parsers one string into multiple ones, the other way around)

Did the trick, but what about newline? How can I represent a newline in the memo as a space in the Edit1?

[marcov]

add .text.   

Tstrings is a list of strings, and its .text parameter concatenates hem together. (or parsers one string into multiple ones, the other way around)

Did the trick, but what about newline? How can I represent a newline in the memo as a space in the Edit1?

Assign to a string variable, run stringreplace on it. Then assign to the edit1.

[laznoob32]

Thank you.

[rvk]

Instead of StringReplace you can also use DelimitedText from the TStringList.

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

1. Memo1.Lines.Delimiter := ' ';
2. Edit1.Text := Memo1.Lines.DelimitedText;

Edit:
Ah, nuts. That doesn't quite work correct.
You'll get quotes and when you want to elimate them you get double spaces.

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

1. Memo1.Lines.Delimiter := ' ';
2. Memo1.Lines.QuoteChar := ' ';
3. Edit1.Text := Memo1.Lines.DelimitedText;

[Bart]

To make thing a little more interesting you can use: 

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

1.   Edit1.Text := Utf8EscapeControlChars(Memo1.Text, emAsciiControlNames);

It's in LazUtf8 unit.

Bart

[Remy Lebeau]

You'll get quotes and when you want to elimate them you get double spaces.

Set the StrictDelimiter property to avoid that:

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

1. Memo1.Lines.Delimiter := ' ';
2. Memo1.Lines.StrictDelimiter := True;
3. Edit1.Text := Memo1.Lines.DelimitedText;

https://www.freepascal.org/docs-html/rtl/classes/tstrings.delimitedtext.html

If StrictDelimiter is set to True, then no quoting is done (The QuoteChar property is disregarded completely): the returned text will contain the items in the stringlist, separated by the Delimiter character. When writing the DelimitedText property, the text will be split at all occurrences of the Delimiter character; however, when reading, the QuoteChar property will be taken into account.

[ASerge]

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

1. Memo1.Lines.Delimiter := ' ';
2. Memo1.Lines.StrictDelimiter := True;
3. Edit1.Text := Memo1.Lines.DelimitedText;

Lines containing spaces will be enclosed in quotation marks.

[Remy Lebeau]

Lines containing spaces will be enclosed in quotation marks.

Not according to the documentation I had quoted:

If StrictDelimiter is set to True, then no quoting is done (The QuoteChar property is disregarded completely)

[ASerge]

Lines containing spaces will be enclosed in quotation marks.

Not according to the documentation I had quoted:

Still will. Test it. Just the documentation is not correct. The StrictDelimiter behavior is more correctly described in the Delphi documentation, and the FPC implementation makes it close to this.

[rvk]

Lines containing spaces will be enclosed in quotation marks.

Not according to the documentation I had quoted:

If StrictDelimiter is set to True, then no quoting is done (The QuoteChar property is disregarded completely)

You're quoting the wrong line.

When writing the DelimitedText property, the text will be split at all occurrences of the Delimiter character; however, when reading, the QuoteChar property will be taken into account.

So when readin DelimtedText, QuoteChar is always taken into account. Try it.

In Delphi you can set QuoteChar to #0 (I think, haven't tested) but that doesn't work in FreePascal.
http://docwiki.embarcadero.com/Libraries/Rio/en/System.Classes.TStrings.QuoteChar

[djongepier]

add .text.   

Tstrings is a list of strings, and its .text parameter concatenates hem together. (or parsers one string into multiple ones, the other way around)

This helped me too! Thanks!

[paule32]

what are the differences between TStrings and TStringList ?
in my Delphi Times, I had created:

var
  list: TStrings;
  lbl: TLabel;
begin
  list := TStringList.Create;
  list.Add('foo bar');
  ...
  lbl.Caption := list.Text;  // for one item in TStringList.
end;

But the point, I would know: why TStrings, and not TStringList in variable definition section ?

[Thaddy]

  lbl.Caption := list.Text;  // for one item in TStringList.
end;

What is that for false information?
It is ALL lines in the Tstrings in one single string with lineEndings..
Please no false information.