[T@nker]

Подскажите как сделать для вывода Memo в Excel? сложность в том что эти Mem'ы являются динамическими. Пробовал этот код - не прокатывает

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

var memes : Integer;   i,j:Cardinal;   S:ShortString; classprint : integer; memoline : integer; begin//d if action.Caption = 'publish' then begin Ap := CreateOleObject('Excel.Application'); //Ap.Workbooks.Open('events.xls'); Ap.Workbooks.Add; classprint  := classid; For i:=0 to Groupbox1.ControlCount-1 do   begin     S:='';     memoline := 0;     // (1)     For memoline := 0 to Tmemo(Groupbox1.Controls[i]).Lines.Count do     begin    Ap.Cells[memoline+3,2] := Tmemo(Groupbox1.Controls[i]).Lines[memoline];     //memoline := memoline + 1;     end; Ap.Worksheets[i+1].Name := clchoose.Items[i]; end; end; end;//d