我需要把一个字符串拆分成几行。
具体地说，我有一个DFM作为字符串（从MySql数据库中提取），我想在TStringList中将它拆分成几行。
它看起来像这样...

'Oject Form1: TScriptForm'#$D#$A'  Left = 0'#$D#$A'  Top = 0'#$D#$A'  Align = alClient'#$D#$A'  BorderStyle = bsNone'#$D#$A'  ClientHeight = 517'#$D#$A'  ClientWidth = 993'#$D#$A'  Color = clBtnFace'#$D#$A'  Font.Charset = DEFAULT_CHARSET'#$D#$A'  Font.Color = clWindowText'#$D#$A'  Font.Height = -11'#$D#$A'  Font.Name = 'MS Sans Serif''#$D#$A'  Font.Style = []'#$D#$A'  OldCreateOrder = False'#$D#$A'  SaveProps.Strings = ('#$D#$A'    'Visible=False')'#$D#$A'  PixelsPerInch = 96'#$D#$A'  TextHeight = 13'#$D#$A'

呃
答：这对我来说几乎是一个问题。 Delphi 自动将#$D#$A视为CR LF，因此我所要做的就是将该字符串赋给TStringlist的Text属性（这也去掉了每个#$D#$A周围的单引号）。因此，我只需要添加一行代码。
如果限制器没有被 Delphi 转换，那么我认为@Roald货车多恩解决方案会起作用，所以他得到了答案。