Home

Page 197
Page 197
background image

190 Глава 4

begin

if Reciving then

begin

if fs.Size=DataSize then

begin

fs.Free;

 Файл

 'Внимание!!!');

end;

exit;

end;

if copy(s, 1,

 then

begin

 6,

 s)-6);

 1, Pos{#0,  s ) ) ;

end;

end;

Процедура достаточно сложная и с ней придется разбираться по частям.

В самом начале сохраняется принятый текст в переменной s. Следующий

кусок кода будет выполняться, если переменная Reciving равна true. Мы

этот кусок пока оставим в покое, а рассмотрим тот, который находится чуть
ниже:

if copy(s,

 5)='Size:' then

begin

sl:=copy(s, 6,

 s)-6);

 (s, 1, Pos(#0, s));

 length{s));

end;


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

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