Home

Page 209
Page 209
background image

202 Глава 4

end;
Start

 Stop + 1;

if Start >

 then

Break;

if

 then

Start := Start + 1;

Stop

 Start;

while

 <> CR) and (Stop <=

 do

Stop

 Stop + 1;

end;

end;

Connect

Терминал:

Клиент подключен.

Можете выполнять команды

 Microsoft FTP Service

USER Администратор

 Password required for Администратор.

PASS

 User Администратор logged in,

HELP

 following commands are

 ==>'s

ACCT

APPE

CDUP

DELE

HELP

  4 . 4 3 . Результат работы программы

Весь написанный в листинге код направлен на вывод пришедшего текста

с помощью компонента

 Для этого ищем символы конца строки

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

строка. Для облегчения поиска заведены две константы CR И LF С шестна-

 значениями #13 и #ю, которые являются кодами символов

конца строки и перевода каретки.


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

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