Советы по Delphi
Ошибка фунциии GetTextLen компонента Memo
По всей видимости, функция GetTextLen в компоненте Memo работает не совсем правильно.
Загрузите в Memo1 большой текстовый файл.
| var {пример из файла помощи} Buffer: PChar;Size: Byte;begin Size := Memo1.GetTextLen;Inc(Size);GetMem(Buffer, Size);Memo1.GetTextBuf(Buffer, Size);... {не относящийся к делу код...}FreeMem(Buffer, Size);end; |
Проблема: Memo1.GetTextLen возвращает размер выводимого, а не всего текста. [000350]
