Delphi 1

Ошибка фунциии 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]