equal
deleted
inserted
replaced
167 ss: string = ''; |
167 ss: string = ''; |
168 i: LongInt; |
168 i: LongInt; |
169 buf: array[0..255] of byte; |
169 buf: array[0..255] of byte; |
170 s: shortstring absolute buf; |
170 s: shortstring absolute buf; |
171 begin |
171 begin |
|
172 {$IFDEF IPHONEOS} |
|
173 filemode := 0; |
|
174 {$ENDIF} |
|
175 |
172 assign(f, fileName); |
176 assign(f, fileName); |
173 |
|
174 reset(f, 1); |
177 reset(f, 1); |
175 |
178 |
176 repeat |
179 repeat |
177 BlockRead(f, buf[1], 255 - Length(ss), i); |
180 BlockRead(f, buf[1], 255 - Length(ss), i); |
178 if i > 0 then |
181 if i > 0 then |