Subversion Repositories Kolibri OS

Rev

Rev 616 | Rev 643 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 616 Rev 619
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: Longint): Boolean;
 164 
function FileTruncate(Handle: THandle; Size: Int64): Boolean;
165 
begin
 165 
begin
166 
  Result := False;
 166 
  Result := False;
Line 167... Line 167...
167 
end;
 167 
end;