equal
deleted
inserted
replaced
111 begin |
111 begin |
112 inc(b[0]); |
112 inc(b[0]); |
113 b[byte(b[0])]:= c; |
113 b[byte(b[0])]:= c; |
114 if b[0] = #255 then |
114 if b[0] = #255 then |
115 begin |
115 begin |
116 s:= s + b; |
116 s:= s + ansistring(b); |
117 b[0]:= #0 |
117 b[0]:= #0 |
118 end |
118 end |
119 end; |
119 end; |
120 |
120 |
121 s:= s + b |
121 s:= s + ansistring(b) |
122 end; |
122 end; |
123 |
123 |
124 function pfsBlockRead(f: PFSFile; buf: pointer; size: Int64): Int64; |
124 function pfsBlockRead(f: PFSFile; buf: pointer; size: Int64): Int64; |
125 var r: Int64; |
125 var r: Int64; |
126 begin |
126 begin |