как из delphi создать в word таблицу

[Dennikid]

таблица состоит из 6 столбцов.
чтобы данные шли в виде:
x[1] y[1] z[1] x[3] y[3] z[3]
x[2] y[2] z[2] x[4] y[4] z[4]

а то у меня получается только:
x[1] y[1] z[1] x[2]y[2]z[2]
x[3] y[3] z[3] x[4]y[4]z[4]

массив данных состоит из 180 значений, то есть последнее x[180]y[180]z[180]. подскажите как сделать.

[Dennikid]

procedure TForm1.Button3Click(Sender: TObject);


var
tf,t,f:integer;
R: Range;
Direction, Separator, Format: OleVariant;
What : OLEVariant;
Name : OLEVariant;
FileName: OLEVariant;
SaveChanges: OleVariant;
Line1,Line2,Line3:string;
begin
OpenDialog2.InitialDir:='C:\';
if OpenDialog2.Execute then
begin
Line1 := 'Угол,градусы Iпопер,кд Iпрод,кд';
FileName:=OpenDialog2.FileName;
WordApp1.Documents.Open(FileName, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam);
What := wdGoToBookmark;
Name := 'таблица';
WordApp1.Selection.GoTo_(What, EmptyParam, EmptyParam, Name);
//WordApp1.;
WordApp1.Selection.Font.Size:=10;
R := WordApp1.Selection.Range;
Direction := wdCollapseEnd;
R.Collapse(Direction);
R.InsertAfter(Line1+' '+Line1);
f:=Memo2.Lines.Capacity-1;
t:=0;
for t := 0 to f do
begin
R.InsertParagraphAfter;
Line2:=Memo2.Lines.strings[t]+' '+FloatToStr(Round(strToFloat(getwo rd(Memo3.Lines.strings[t],' ',2))));
Line3:=Memo2.Lines.strings[t+1]+' '+FloatToStr(Round(strToFloat(getwo rd(Memo3.Lines.strings[t+1],' ',2))));
R.InsertAfter(Line2+' '+Line3);
end
else
begin
R.InsertParagraphAfter;
t:=f;
Line2:=Memo2.Lines.strings[t]+' '+FloatToStr(Round(strToFloat(getwo rd(Memo3.Lines.strings[t],' ',2))));
R.InsertAfter(Line2);
end;
end;
Separator := ' ';
Format := wdTableFormatGrid1;
R.ConvertToTable(Separator, EmptyParam, EmptyParam,
EmptyParam, Format, EmptyParam,
EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam,EmptyParam, EmptyParam);

код программы!

[Квэнди]

В общем случае таблица в Word создается так:

var
  App: Variant;
begin
  App := CreateOleObject('Word.Application');
  App.Documents.Add;
  App.ActiveDocument.Tables.Add(App.ActiveDocument.Range(0, 0), 5, 2);
  App.Visible := True;

где
5- кол-во строк
2- кол-во столбцов

[Sibedir]

в сл. раз за флуд будет предупреждение. (Квэнди)

[Dennikid]

таблица создается, но мне нужно помочь. Как вставить данные правильно?

[Квэнди]

app.Tables.Item(1).Cell(1,1).Range.Text := 'текст';

[Dennikid]

для 180*3 значений? каждому писать свой путь для вставки в таблицу?
к тому же таблицы должны быть разными. 3,6,9 столбцов. от 90 до 360 значений.

[Квэнди]

Кхм, вы знакомы с понятием циклов в программировании ?

[Dennikid]

знаком, только как сделать чтобы 3 столбца при определенном пределе переходили во вторую колонку и писались оттуда так как я написал в начале.

[Квэнди]

ну все зависит от того по какому принципу должны заполняться данные. принцип у вас не описан.