TMemo постранично

[Voldemar__]

Подскажите пожалуйста, как сделать загрузку большого текстового файла в TMemo (Windows и Android), чтобы затем можно было листать "постранично"?

[NetSpace]

подгружать в Memo блоками не катит? скажем, с1 по 50.000 символов, затем с 50.000 по 100.000 и так далее. т.к. у memo есть ограничение по количеству отображаемых символов, насколько я помню.

[Arigato]

Лучше использовать TRichEdit. А постраничный вывод - загружать файл в TStringList, из него переносить нужный блок в TRichEdit, кнопками перехода на другую страницу менять номер блока.

Набросал пример, разбирайтесь и настраивайте под свою задачу:

const
  TXTFileName = '1.txt'; // имя файла с текстом
  LinesOfPage = 30; // кол-во строк на странице

procedure TForm1.ShowPage;
// Отображает текущую страницу
var
  i: Integer;
begin
  RichEdit1.Clear;
  for i := LinesOfPage * (Page - 1) to LinesOfPage * Page - 1 do begin
    if i >= TXT.Count then
      Break;
    RichEdit1.Lines.Add(TXT[i]);
  end;
  Label1.Caption := 'Страница: ' + IntToStr(Page); // вывод номера страницы
  Label2.Caption := 'Всего: ' + IntToStr(PageCount);
end;

function TForm1.PageCount: Integer;
// Считаем кол-во страниц
begin
  Result := TXT.Count div LinesOfPage;
  if TXT.Count mod LinesOfPage > 0 then
    Inc(Result);
end;

procedure TForm1.NextPage;
// Переход к следующей странице
begin
  if Page < PageCount then begin
    Inc(Page);
    ShowPage;
  end;
end;

procedure TForm1.PrevPage;
// Переход к предыдущей странице
begin
  if Page > 1 then begin
    Dec(Page);
    ShowPage;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  TXT := TStringList.Create; // TXT: TStringList;
  TXT.LoadFromFile(TXTFileName);
  Page := 1; // Page: Integer;
  ShowPage;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  PrevPage;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  NextPage;
end;

[Аватар]

А чем rich лучше? Текст же не форматированный

[Voldemar__]

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

Лучше использовать TRichEdit. А постраничный вывод - загружать файл в TStringList, из него переносить нужный блок в TRichEdit, кнопками перехода на другую страницу менять номер блока.

Набросал пример, разбирайтесь и настраивайте под свою задачу:

Спасибо за пример, но TStringList подгрузит всю строку, пока не встретится #13#10, а в РичЭдите что будет? Огромная ширина строки с горизонтальным скроллбаром? А если WordWrap, то текст превысит высоту РичЭдита (или Мемо)

[Аватар]

Memo1.Perform(EM_LINESCROLL,0,22) или назад -22
22 (количество строк) сам вычисли сколько умещается по высоте

[Arigato]

Сообщение от Аватар

А чем rich лучше?

А чем хуже? Форматирование отключается выставлением в true свойства PlainText.

[Аватар]

Не хуже. И не лучше в данном случае ))