[fofka]

Добрый день. Подскажите как правильно организовать перенос данных из Memo в Excel.

procedure TForm1.Button1Click(Sender: TObject);
  var
  Excel:Variant;
  m1, m2,m3, m4, m5:TCaption;
begin

  m1 := Form1.MainMemo.Lines[0];
  m2 := Form1.MainMemo.Lines[1];
  m3 := Form1.MainMemo.Lines[2];
  m4 := Form1.MainMemo.Lines[3];
  m5 := Form1.MainMemo.Lines[4];
  mo := ''+(m1)+':'+(m5)+'';

При таком варианте в ячейку [B2] выгрузится содержимое всех пяти линий Memo.

Excel.ActiveWorkBook.WorkSheets[Il].Range['B2'].Value:= mo;

Мне нужно что бы в ячейку [B2] выгрузилось 50 знаков (символов), еще 50 знаков в ячейку [B3] и соответсвено в ячейку [B4] 50 знаков.
То есть организовать выгрузку с ограничением по количеству символов, (у меня 50 символов).
Заранее благодарю за подсказку.

[stil]

Код:

for i:=1 to length(mo) do begin
  j:=(i div 50) + 2;
  Sheet.Cells[j,2].value:=Sheet.Cells[j,2].value+mo[i];
end;

[fofka]

Не хочет переносить больше одной линии из MEMO.
Посмотрите пожалста где ошибка.

[fofka]

Спасибо за советы.

Разобрался почему не "работало".

Если мы пишем так

mo := Form1.MainMemo.Text

то все работает

  Excel:=CreateOleObject('Excel.Application');
  Excel.SheetsInNewWorkbook:=1;
  Excel.Workbooks.Add;
  Excel.Windows[1].Caption := Il;
  Excel.ActiveSheet.PageSetup.LeftMargin:= Excel.Application.InchesToPoints(0.40);
  Excel.ActiveSheet.PageSetup.RightMargin:= Excel.Application.InchesToPoints(0.80);
  Excel.ActiveSheet.PageSetup.TopMargin:= Excel.Application.InchesToPoints(0.20);
  Excel.ActiveSheet.PageSetup.BottomMargin:= Excel.Application.InchesToPoints(1.0);
  Excel.ActiveSheet.PageSetup.Orientation:= 1;


  Excel.ActiveWorkBook.WorkSheets[1].Name:=Il;

  Excel.Visible := True;


  for i:=1 to length(mo) do begin
  j:=(i div 100) + 2;
  Excel.ActiveWorkBook.WorkSheets[Il].Cells[j,2].value:=Excel.ActiveWorkBook.WorkSheets[Il].Cells[j,2].value+mo[i];
end;

Есть небольшой нюанс. Если предложение меньше чем ограничение (тут 100 знаков) то Excel загоняет все в одну ячейку. Лично для меня это не критично.

Еще раз благодарю за помощь.