TStrings

[stikriz]

Объясните, пожалста, тупому в какой кодировке TStrings хранит строки?
Вставляю в TMemo текст, перебираю построчно - строк больше Смотрю - появились лишние разрывы строки и пропадают символы...
А внешне - в окне программы все правильно показано.
В UTF8? А зачем объявлено как string? Есть же тип UTF8... Или что там?
В оьбщем, мне надо работать с AnsiString и чтобы из буфера обмена вставляло win1251.

[Mr.Smart]

Объясните, пожалста, тупому в какой кодировке TStrings хранит строки?

Ну почему же так резко! Для отображения строк используется кодировка UTF-8.
Впринцепе в TStrings т.е. в производных он него строки могут хранится в любой кодировке. Для отображение этих строк в компонентах используется только кодировка UTF-8.
Если втавка из буфера обмена производится средствами (как я понимаю) Windows то проблем небудет компонент (в данном случае TMemo) всё отработает на автомате.

п.с. Для работы со строками пользуйтесь функциями UTF8ToSys и SysToUFT8 из модуля LCLProc. Данные функции являются кросс платформенные (Модное слово ) и в случае если в ОС используются кодировка отличная от cp-1251 все отрнаботает адекватно!

Добавлено спустя 3 минуты 23 секунды:
Да и кстати пока (я надеюсь) в FreePascal UTF8String соответствует AnsiString и String и даже ShortString! Вобщем пока нет различия между данными типами строк (кодировок)!

[stikriz]

Все было бы хорошо, если бы оно не вставляло несуществующие переводы строк.
Я еще раз повторяю, что после вставки там появляются переводы строк, которых в тексте нет.
В Count количество строк больше, чем в тексте. Вот такая ерунда...
Пусть бы там и UTF8 был, но правильный, а то получается, что при приеме строк в компонент некоторые последовательности символов считаются не двухбайтовыми, а одлнобайтовыми как и должно быть в string, и если в них есть код 13, то автоматом ставит перевод строки. Это бага? Я думаю, что бага.
В Delphi такого не происходит никогда...
Если я начну по строкам бежать и переводить их в win1251, то у меня все равно будут лишние строки.
Сейчас под рукой нет Лазаруса. Надо бы посмотреть, если Text сразу целиком перекодировать как одну строку, будет-ли нормально.

[Vadim]

Специально, ради интереса, проверил то, что Вы говорите - вставил с помощью Ctrl+C и Ctrl-V многострочный текст в кодировке cp1251 из файла в TMemo. Клятвенно Вас заверяю - сколько строк было в файле, именно столько и вставилось в TMemo. Перевод строк досовский - #13#10. Ни одного лишнего перевода строки не вставилось.

В Delphi такого не происходит никогда...

В Lazarus'е тоже.
Выложите сюда Вашу программу и текстовый файл, из которого Вы вставляете текст. И напишите версию Lazarus и FPC.

[stikriz]

Вечером выложу.
Если нетрудно, то вставьте туда из блокнота вот такой текст:
lala+' : '+lala

Должно разорваться после двоеточия. Можно прямо отсюда скопировать.

[Vadim]

stikriz
Нет, не разрывается. В мемо оно одной строкой вставилось.

[Mr.Smart]

Попробуй поиграть свойством TextLineBreakStyle оно определяет какие символы являются концом строки (TTextLineBreakStyle = (tlbsLF,tlbsCRLF,tlbsCR);)

[stikriz]

Это так видно в мемо.
А что в count?

[Vadim]

А что в count?

Как и видно - в count ровно одна строка.

Добавлено спустя 8 минут 8 секунд:
Проверьте у себя мою программу - при вставке строк в мемо внизу появляется количество строк.
http://212.41.1.157/img/files/project1.zip