取一个文本的第二、三行

  var aGoodsDesc:TStringList;
      j:Integer;
      aGoods:String;
  begin
    with cdsDss do begin
      Close;
      Open;
      First;
      aGoodsDesc:=TStringList.Create;
      while not Eof do begin
      aGoods:='';
      aGoodsDesc.text:=trimright(FieldbyName('GoodsDesc').asString);
      for j:=1 to 2 do begin
        aGoods:=iif(aGoods<>'',aGoods+#13#10+aGoodsDesc.Strings[j],aGoodsDesc.Strings[j]);
      end;

        Edit;
        FieldbyName('GoodsDesc').asString:=aGoods;
        Post;
        Next;
      end;
    end;
  end