Subversion Repositories Kolibri OS

Rev

Rev 790 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 790 Rev 7625
Line 160... Line 160...
160 
begin
 160 
begin
161 
  Close(FileRecordByHandle(Handle)^.F);
 161 
  Close(FileRecordByHandle(Handle)^.F);
162 
  ReleaseFileRecord(Handle);
 162 
  ReleaseFileRecord(Handle);
163 
end;
 163 
end;
Line 164... Line 164...
164 
 
 164 
 
165 
function FileTruncate(Handle: THandle; Size: Longint): Boolean;
 165 
function FileTruncate(Handle: THandle; Size: Int64): Boolean;
166 
begin
 166 
begin
167 
  Result := False;
 167 
  Result := False;
Line 168... Line 168...
168 
end;
 168 
end;