begin for j:=1 to memo1.Lines.Count do begin linetotal:=linetotal+#13+(memo1.Lines[j]); end; vTable.Cell(1, 1).Range.Text := linetotal;end;循环取出memo1中的行,赋到word的table中,我linetotal定义为linetotal:widestring;
begin for j:=0 to memo1.Lines.Count-1 do begin linetotal:=linetotal+#13#10+(memo1.Lines[j]); end; vTable.Cell(1, 1).Range.Text := linetotal;end;这样可以解决吧!