equal
deleted
inserted
replaced
220 i:= 0; // avoid compiler hints |
220 i:= 0; // avoid compiler hints |
221 s[0]:= #0; |
221 s[0]:= #0; |
222 repeat |
222 repeat |
223 BlockRead(f, s[1], 255 - Length(ss), i); |
223 BlockRead(f, s[1], 255 - Length(ss), i); |
224 if i > 0 then |
224 if i > 0 then |
225 begin |
225 begin |
226 s[0]:= char(i); |
226 s[0]:= char(i); |
227 ss:= ss + s; |
227 ss:= ss + s; |
228 while (Length(ss) > 1)and(Length(ss) > byte(ss[1])) do |
228 while (Length(ss) > 1)and(Length(ss) > byte(ss[1])) do |
229 begin |
229 begin |
230 ParseIPCCommand(copy(ss, 2, byte(ss[1]))); |
230 ParseIPCCommand(copy(ss, 2, byte(ss[1]))); |