var  s: string;  i: Integer;begin  s := 'Delphi'#10'2007';  ShowMessage(IntToStr(Length(s)));    {11}  s := AdjustLineBreaks(s);  //s := AdjustLineBreaks(s,tlbsCRLF); {tlbsCRLF 是默认的}  ShowMessage(IntToStr(Length(s)));    {12, 这时 s = 'Delphi'#13#10'2007'}  s := AdjustLineBreaks(s,tlbsLF);  ShowMessage(IntToStr(Length(s)));    {11, 这时 s = 'Delphi'#10'2007'}end;