TMemo

[vasyaRyzhyi]

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

Ещё один повод не пользоваться этим тормозным TMemo
а для обработки строк использовать TStringList

TStringList никак.
Мне нужно 1:1 показать строчки текстового файла на экране.
Меньше 0x20 там встречаются только символы 0x0D и 0x0A.

[veniside]

Тут глянь, внизу там есть старенькое TGSMemo, например

Unlimited text and line length (over 32Kb), gutter and right margin, hyperlinks mark-up, color settings for text foreground, background, selection and hyperlinks, highlighters and syntax parsers for HTML, find and replice procedures and events, text can be edited after the line end and many more...

(сам я с ним не работал)

[asmodey1]

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

TStringList никак.
Мне нужно 1:1 показать строчки текстового файла на экране.
Меньше 0x20 там встречаются только символы 0x0D и 0x0A.

А что, ListBox как-то не один к одному отображает ?
Попробуйте:

procedure TForm1.BitBtn1Click(Sender: TObject);
var i: integer;
begin
for i:=0 to 50000 do
ListBox1.Items.Add(IntToStr(i));
end;

З.Ы. Да, а "борьба" с переносами в TListBox у нас уже была и мы победили...
http://programmersforum.ru/showthread.php?t=90991

[Serge_Bliznykov]

asmodey1, коллега, Вы не разобрались.
Проблема не в том, чтобы отобразить 50 тысяч строк,
а в то, чтобы в одной строке отобразить несколько тысяч символов.

А что, ListBox как-то не один к одному отображает

час от часу не легче. ListBox вообще с Access vioaltion падает при попытке прочитать оттуда такую строку (выделено красным!!):

var s : AnsiString;
  i : integer;
begin
  SetLength(s, 5000);
  for i:=1 to 5000 do
    s[i] := '*';

  ShowMessage('Length s = '+InttoStr(Length(s)));

  ListBox1.Items.Clear;
  ListBox1.Items.Append(s);

  s := ListBox1.Items.Strings[0];
  ShowMessage('After ListBox Length s = '+InttoStr(Length(s)));

end;

vasyaRyzhyi, а зачем Вам такие строки отображать?!!
это далеко не всякий текстовый редактор позволит создавать/редактировать подобные файлы.
Уж очень специфичная задача у Вас получается... поэтому и решать её надо не стандартным образом!

[vasyaRyzhyi]

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

а зачем Вам такие строки отображать?!!
это далеко не всякий текстовый редактор позволит создавать/редактировать подобные файлы.
Уж очень специфичная задача у Вас получается... поэтому и решать её надо не стандартным образом!

В том то и дело, что не знаю, с какой стороны подобраться.
Тестовый файл поднимается на экран и бухгалтер должен/а пометить кусок/и текста, из комбо выбрать e-mail и потом на батон нажать и этот кусок отправить, но между нажатием и отсылкой довольно сложную обработку заказали и после обработки на экране уже измененные строчки надо опять показать. Символы все хорошие, только конец строки, остальное нормальное.

[Serge_Bliznykov]

Тестовый файл поднимается на экран

не может быть нормальный текстовый файл иметь длину строки больше 1000 символов! (я бы даже сказал более 200 символов, ну да ладно, пусть будет с пятикратным запасом!!)

Отсюда и пляшите!

вплоть до того, что при отображении разбивайте длинные строки на более короткие (т.е. вместо одной длинной показывайте 20 коротких)...

[veniside]

> ListBox вообще с Access vioaltion падает при попытке прочитать оттуда такую строку

хм, а у меня все ОК (в 7-ой).

[asmodey1]

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

asmodey1, коллега, Вы не разобрались.
Проблема не в том, чтобы отобразить 50 тысяч строк,
а в то, чтобы в одной строке отобразить несколько тысяч символов

Не вяжется с

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

не может быть нормальный текстовый файл иметь длину строки больше 1000 символов! (я бы даже сказал более 200 символов, ну да ладно, пусть будет с пятикратным запасом!!)
вплоть до того, что при отображении разбивайте длинные строки на более короткие (т.е. вместо одной длинной показывайте 20 коротких)...

А я разве не предложил разбиение строк ?
Даже ссылочку дал...

[Serge_Bliznykov]

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

хм, а у меня все ОК (в 7-ой).

Подтверждаю Ваши слова. в Delphi 5 выдаёт Access violation
тот же код под Borland Delphi 2006 работает (и строка не обрезается, кстати!)

[vasyaRyzhyi]

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

не может быть нормальный текстовый файл иметь длину строки больше 1000 символов! (я бы даже сказал более 200 символов, ну да ладно, пусть будет с пятикратным запасом!!)

Отсюда и пляшите!

вплоть до того, что при отображении разбивайте длинные строки на более короткие (т.е. вместо одной длинной показывайте 20 коротких)...

Заказчик требует 5000 в строке, говорит, что купит большоооой экран и вообще это его проблемы.
Мне самое простое поднять в стинглист и потом резать, клеить т.д.
Так я понял, что решения нет
ОК, попробую уговорить на 4000 хотя бы, чтобы richedit использовать.