Home

Page 302
Page 302
background image

Железная мастерская

295

var

SendStr:String;

begin

SendStr: = '' ;

if

 'Введите данные, которые надо

SendStr) then

 ,

end;
Перед отправкой выводим с помощью функции

 на экран окно,

в котором пользователь должен ввести данные для отправки. Это окно вы
можете увидеть на рис. 6.10.

Запрос данных

Введите данные,

 надо отправить

Cancel

 6.10. Окно ввода отправляемых данных

Если пользователь ввел какие-нибудь данные и нажал ОК, то отправляем их

с помощью метода

 компонента

 У этого метода два

параметра:

 Отправляемые данные в формате pchar. К отправляемым данным

ляем символы конца строки и перевода

 Эти символы

очень часто используются в оборудовании.

D Во втором параметре указываем длину отправляемых данных. Узнаем

длину введенной строки плюс два символа на перевод каретки и конец

строки.

ДЛЯ

 ДаННЫХ НУЖНО СОЗДатЬ Обработчик СОбыТИЯ

компонента сот32. В этом обработчике я написал следующий код:

procedure

 (Sender: TObject; Buffer: Pointer;

 Word);

begin

end;


Copyright © 2020 Файлообменник files.d-lan.dp.ua

Использование любых материалов сайта возможно только с разрешения автора.