Aug 28

Как поставить Memo-файл именно в Memo-поле?

Для того, чтобы правильно и без проблем поместить Memo-файл с самим ASCII-разделителем именно в Memo-поле таблицы,  желательно увидеть приведенные ниже подсказки и готовые решения...

Для этого Вам в обьязательном порядке необходимо использовать саму процедуру под названием getTextBuf.
Вот такие вот подарки нам программирование иногда предоставляет...

Вот небольшой пример, приведенный именно из электронного справочника:

Пример, который мы Вам представим ниже, при самом нажатии юзером на клавишу с точностью копирует весь текст из самого поля редактирования именно в строку с терминирующим нулем, а далее ставит данную строку уже в иное поле редактирования. Так вот...

Вот представленный кусочек кода:

procedure TForm1.Button1Click(Sender: TObject);
var

Buffer: PChar;

Size: Byte;

begin

Size := Edit1.GetTextLen; {только здесь мы имееи длину строки в самом Edit1}

Inc(Size); {только здесь мы добавляем место именно для терминирующего нуля}

GetMem(Buffer, Size); {только здесь мы создаем динамическую переменную по имени Buffer}

Edit1.GetTextBuf(Buffer,Size); {только здесь мы ставим Edit1.Text в Buffer}

Edit2.Text := StrPas(Buffer); {только здесь мы ставим Buffer в строку именно паскалевского типа}

FreeMem(Buffer, Size); {только здесь мы вытираем память, которая распрелеленная только  для Buffer}

end;

Вот мы и подошли уже к окончанию, трудитесь и у Вас абсолютно все получится. Так ведь? Я в это охотно верю!


  1. Филипов
     Add karma Subtract karma  +0
    Цитировать.

    Мне кажется, слишком короткая работа

    1

Поделитесь вашими мыслями



Ссылки в комментариях будут свободны от nofollow.

Поддерживаемые теги: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong> 

Ссылки в комментариях будут свободны от nofollow.