РАЗБИЕНИЕ ТЕКСТА НА ДВА ПОЛЯ Memo, Delphi

[kapiton]

Столкнулась с проблемой.
Из файла загружается текст в 2 и более полей memo, необходимо организовать перенос при заполнении одного из них.
Т.е вот печатается в memo1, а как только дошли до конца последний строки, то оставшийся текст со следующего слова грузится в memo2.
По типу колонок в word

честно говоря, идей даже нет, кроме как заранее ставить точки в коце первого поля, да и то мне кажется не сработает =(

может у бывалых есть пару нароботок или хотя бы идей?

[Stilet]

может у бывалых есть пару нароботок или хотя бы идей?

Неа. Нема. Бывалые в MS Word макросы для такого пишут. Или как минимум пользуются какими нибудь репортами типа Crystal.
Впрочем...

Memo1.Lines.BeginUpdate; Memo2.Lines.BeginUpdate;
Memo1.Lines.Clear; Memo2.Lines.Clear;
with TStringList.Create do begin
 LoadFromFile('Файл');
 i:=0; while i<Count do begin
  if i<Count then Memo1.Lines.Append(Strings[i]); inc(i);
  if i<Count then Memo2.Lines.Append(Strings[i]); inc(i);
 end;
 free;
end;
Memo1.Lines.EndUpdate; Memo2.Lines.EndUpdate;

[min@y™]

может у бывалых есть пару нароботок или хотя бы идей?

Для начала я хочу узнать, для чего такой фистинг тебе нужен! Ума не разложу, как такое порно можно применять на пактике.

Колись давай!!!111

[kapiton]

Сообщение от min@y™

Для начала я хочу узнать, для чего такой фистинг тебе нужен! Ума не разложу, как такое порно можно применять на пактике.

Колись давай!!!111

да чего далеко ходить) Задали что-то типа макета газеты, с загрузкой из файла. т.е. вот есть форма и в нее давай фигачить текст. Ну а в газете любят колонки, вот и попросили про это не забыть и попробовать через 2 поля мемо

[Stilet]

Задали что-то типа макета газеты

Для газет используются программы специально предназначеные для иллюстраций.
Тут твое Мемо не прокатит.

[min@y™]

Задали что-то типа макета газеты

попросили про это не забыть и попробовать через 2 поля мемо

Страшный сон редактора.
Забудь про мемо и ваще про компоненты. Такое надо рисовать только вручную.

[kapiton]

Сообщение от min@y™

Страшный сон редактора.
Забудь про мемо и ваще про компоненты. Такое надо рисовать только вручную.

Не глупая и понимаю как это делается мастерами вестарщиками)
но от этого моя проблема не исчезает,сказали так, надо сделать так)
по делу совету будут, кроме как бросить-плюнуть-забыть?

[min@y™]

по делу совету будут, кроме как бросить-плюнуть-забыть?

Нет.
Такую прогу ты не осилишь, это работа для группы программистов-профессионалов.

[Stilet]

по делу совету будут, кроме как бросить-плюнуть-забыть?

А что выше мой совет не подошел?

[Step_UA]

Сообщение от kapiton

...по делу совету будут, кроме как бросить-плюнуть-забыть?

Совсем не оптимально, особенно при работе с большим текстом - как идея ))

function NextPart(M:TMemo):string;
// возвращает текст "не помещающийся" в Memo
var
  curP:TPoint;
  MaxLine, ChPos, MaxPos:Integer;
  txt:String;
  Can : TCanvas;
begin
  Can := TCanvas.Create;
  Can.Handle := CreateCompatibleDC(GetDC(0));
  try
    Can.Font.Assign(M.Font);
    MaxLine:=trunc((M.Height-6)/ Can.TextHeight('Wg'))-1; //количество строк
    //6 - добавляется размер обрамления вверху и внизу компонента TMemo; значение подбирается
  finally
    DeleteDC(Can.Handle);
    Can.Handle := 0;
    Can.Free;
  end;
  m.SelLength:=0;
  m.SelStart:=0;
  ChPos:=0;
  maxpos:=length(M.Text);
  repeat
    inc(ChPos);
    m.SelLength:=ChPos;
    curP:=M.CaretPos;
  until (ChPos = MaxPos) or (M.CaretPos.Y > MaxLine );
  txt:=m.Text;
  NextPart:=copy(txt, chpos,MaxPos-ChPos);
  delete(txt, chpos,MaxPos-ChPos);
  m.Text:=txt;
end;

способ определения высоты одной строки взят с этого форума здесь
Вызов для 3-х Memo

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.BeginUpdate; Memo2.Lines.BeginUpdate; Memo3.Lines.BeginUpdate;
  Memo1.Lines.LoadFromFile('D:\Test.txt');

  memo2.Text:=NextPart(memo1);
  memo3.Text:=NextPart(memo2);
  Memo1.Lines.EndUpdate; Memo2.Lines.EndUpdate; Memo3.Lines.EndUpdate;
end;