changeset 5178 | f3cc6119f1fe |
parent 5174 | f5294509783e |
child 5592 | 662ebb46642f |
5177:b850b544addc | 5178:f3cc6119f1fe |
---|---|
174 i: LongInt; |
174 i: LongInt; |
175 buf: array[0..255] of byte; |
175 buf: array[0..255] of byte; |
176 s: shortstring absolute buf; |
176 s: shortstring absolute buf; |
177 begin |
177 begin |
178 |
178 |
179 uMobile.SaveBeganSynching(); |
179 uMobile.SaveBegan(); |
180 |
180 |
181 // set RDNLY on file open |
181 // set RDNLY on file open |
182 filemode:= 0; |
182 filemode:= 0; |
183 {$I-} |
183 {$I-} |
184 assign(f, fileName); |
184 assign(f, fileName); |