Subversion Repositories Kolibri OS

Rev

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

Rev 643 Rev 790
Line -... Line 1...
- 
 
 1 
{utf8}
1 
unit sysutils;
 2 
unit sysutils;
Line 2... Line 3...
2 
 
 3 
 
- 
 
 4 
{$i _defines.inc}
- 
 
 5 
{$mode objfpc}
Line 3... Line 6...
3 
{$i _defines.inc}
 6 
{$h+}
Line 4... Line -...
4 
 
 - 
 
5 
interface
 7 
 
6 
 
 - 
 
Line 7... Line 8...
7 
{$mode objfpc}
 8 
interface
8 
{ force ansistrings }
 9 
 
9 
{$h+}
 10 
{ force ansistrings }
10 
 
 11 
 
Line 148... Line 149...
148 
  case Origin of
 149 
  case Origin of
149 
    fsFromBeginning: Position := FOffset;
 150 
    fsFromBeginning: Position := FOffset;
150 
    fsFromCurrent: Position := FilePos(FileRecordByHandle(Handle)^.F) + FOffset;
 151 
    fsFromCurrent: Position := FilePos(FileRecordByHandle(Handle)^.F) + FOffset;
151 
    fsFromEnd: Position := FileSize(FileRecordByHandle(Handle)^.F) + FOffset;
 152 
    fsFromEnd: Position := FileSize(FileRecordByHandle(Handle)^.F) + FOffset;
152 
  end;
 153 
  end;
153 
  {TODO: ¯à®¢¥àª  ᮮ⢥âá⢨ï [0..filesize]}
 154 
  {TODO: проверка соответствия [0..filesize]}
154 
  Seek(FileRecordByHandle(Handle)^.F, Position);
 155 
  Seek(FileRecordByHandle(Handle)^.F, Position);
155 
  Result := Position;
 156 
  Result := Position;
156 
end;
 157 
end;
Line 157... Line 158...
157 
 
 158 
 
Line 173... Line 174...
173 
 
 174 
 
174 
function FileExists(const FileName: String): Boolean;
 175 
function FileExists(const FileName: String): Boolean;
175 
var
 176 
var
176 
  F: File;
 177 
  F: File;
- 
 
 178 
begin
177 
begin
 179 
  {$i-}
178 
  Assign(F, FileName);
 - 
 
179 
  try
 180 
  Assign(F, FileName);
180 
    Reset(F);
 181 
  Reset(F);
- 
 
 182 
  if IOResult = 0 then
181 
    FileSize(F);
 183 
  begin
182 
    Result := True;
 - 
 
183 
  except
 - 
 
184 
    Result := False;
 - 
 
185 
  end;
 184 
    Result := True;
- 
 
 185 
    Close(F);
- 
 
 186 
  end else
- 
 
 187 
    Result := False;
186 
  Close(F);
 188 
  {$i+}
Line 187... Line 189...
187 
end;
 189 
end;
188 
 
 190 
 
189 
function DirectoryExists(const Directory: String): Boolean;
 191 
function DirectoryExists(const Directory: String): Boolean;