Хелп плз))

[Pinko]

ПИСАТЬ так писать

if (FromServer) and (Connectname=name) and (pck[1]=#$01) then

begin
if (q=false)
then
begin
q:=true;
SendMSG('Пакет принят');
end
else begin
SendMSG('Пакет В ПОМОЙКУ !!!!!!!!!!!!');
pck:='';
end;

[goodvin1709]

Pinko, Дорогой пользователь, не хочу вас оскорблять но для начала выучите синтаксис паскаля,проверьте свой код и потом постите его,берите код в [highlight="Delphi"],Спасибо.

[Pinko]

goodvin1709,
А ТАК ЧИТАТЬ ВЫ НЕ УМЕЕТЕ ????????????????

Пепельница Для тем - мусора...