не работает FileSize

[Alex Cones]

Может что-то упустил?

Procedure LDN_FindScripts;
 Var
  F:TextFile;
 Begin
  If FileExists(Directory.ExeDirectory + '\Scripts.asc') Then
   Begin
    AssignFile(F, Directory.ExeDirectory +'\Scripts.asc');
    Reset(F);
    If FileSize(F) <> 0 Then ScriptMode := TRUE Else ScriptMode := FALSE;
    CloseFile(F);
   End
  Else
   ScriptMode := FALSE;
 End;

В файле написано: "S" (без квч). Внутрь проверки залез, Assign выполнил, ресет выполнил, после проверки

If FileSize(F) <> 0 Then ScriptMode := TRUE Else ScriptMode := FALSE;

ScriptMode = FALSE!
Что я делаю не так?

[raxp]

можно и без загрузки файла:

function GetFileSize(namefile: string):Integer;
var InfoFile: TSearchRec;
    AttrFile: Integer;
    ErrorReturn: Integer;
begin
 AttrFile := $0000003F; {Any file}
 ErrorReturn := FindFirst(namefile, AttrFile, InfoFile);
 if ErrorReturn <> 0 then
  Result := -1 {в случае, если файл не найден}
 else
  Result := InfoFile.Size; {Размер файла в байтах}
 FindClose(InfoFile);
end;

можно при поиске пользоваться параметрами - FindFirst

[Alex Cones]

Спасибо, попробую.

Сделал так:

Procedure LDN_FindScripts;
Var
  InfoFile: TSearchRec;
  AttrFile: Integer;
  ErrorReturn: Integer;
Begin
 AttrFile := $0000003F;
 ErrorReturn := FindFirst(Directory.ExeDirectory + '\Scripts.asc',
                          AttrFile,
                          InfoFile);
 If ErrorReturn <> 0 Then
  ScriptMode := FALSE
 Else
  If InfoFile.Size = 0 Then
   ScriptMode := FALSE
  Else
   ScriptMode := TRUE;
 FindClose(InfoFile);
End;

К сожалению движок форума не позволяет сказать "+"