Rev 619 | Rev 790 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 619 | Rev 643 | ||
---|---|---|---|
Line 159... | Line 159... | ||
159 | begin |
159 | begin |
160 | Close(FileRecordByHandle(Handle)^.F); |
160 | Close(FileRecordByHandle(Handle)^.F); |
161 | ReleaseFileRecord(Handle); |
161 | ReleaseFileRecord(Handle); |
162 | end; |
162 | end; |
Line 163... | Line 163... | ||
163 | 163 | ||
164 | function FileTruncate(Handle: THandle; Size: Int64): Boolean; |
164 | function FileTruncate(Handle: THandle; Size: Longint): Boolean; |
165 | begin |
165 | begin |
166 | Result := False; |
166 | Result := False; |
Line 167... | Line 167... | ||
167 | end; |
167 | end; |