equal
deleted
inserted
replaced
162 {$IOCHECKS OFF} |
162 {$IOCHECKS OFF} |
163 Assign(f, image^.filename); |
163 Assign(f, image^.filename); |
164 Rewrite(f, 1); |
164 Rewrite(f, 1); |
165 if IOResult = 0 then |
165 if IOResult = 0 then |
166 begin |
166 begin |
|
167 writeResult:= 0; // suppress fpc hint |
167 BlockWrite(f, head, sizeof(head), writeResult); |
168 BlockWrite(f, head, sizeof(head), writeResult); |
168 BlockWrite(f, image^.buffer^, size, writeResult); |
169 BlockWrite(f, image^.buffer^, size, writeResult); |
169 Close(f); |
170 Close(f); |
170 end |
171 end |
171 else |
172 else |