|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
вывод содержимого из Memo в MS Excel
Подскажите как сделать для вывода Memo в Excel? сложность в том что эти Mem'ы являются динамическими. Пробовал этот код - не прокатывает
Код:
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 Начинающий программист уверен что в 1 МБ 1000 КБ законченный программист уверен что в 1 км 1024 м |