equal
deleted
inserted
replaced
178 i:= 0; // avoid compiler hints |
178 i:= 0; // avoid compiler hints |
179 s[0]:= #0; |
179 s[0]:= #0; |
180 repeat |
180 repeat |
181 BlockRead(f, s[1], 255 - Length(ss), i); |
181 BlockRead(f, s[1], 255 - Length(ss), i); |
182 if i > 0 then |
182 if i > 0 then |
183 begin |
183 begin |
184 s[0]:= char(i); |
184 s[0]:= char(i); |
185 ss:= ss + s; |
185 ss:= ss + s; |
186 while (Length(ss) > 1)and(Length(ss) > byte(ss[1])) do |
186 while (Length(ss) > 1)and(Length(ss) > byte(ss[1])) do |
187 begin |
187 begin |
188 ParseIPCCommand(copy(ss, 2, byte(ss[1]))); |
188 ParseIPCCommand(copy(ss, 2, byte(ss[1]))); |