При переносе функций в один файл, возникает несовместимость типов..

[Человек_Борща]

Всем привет.

Возникла проблема.
Решил все функции затолкать в один модуль.
Невыходит.. конфликтует почему-то.


Суть проблемы:
Сначала пишет
incompatible types Cardinal and TSearchRec

Дописываю в uses модуль System, в ответ ругань:
Identifier redeclared: System

Далее что сделать с WideString?

Есть 2 функции:

function FileGetSize(Filename: string): LongInt;
var
  F: file;
  OldFileAttr: Integer;
begin
  if FileExists(Filename) then
  begin
    OldFileAttr := FileGetAttr(Filename);
    FileSetAttr(Filename, OldFileAttr and (faReadOnly xor $FFFF));
    try
      AssignFile(F, Filename);
      Reset(F, 1);
      Result := FileSize(F); //incompatible types WideString and File
      CloseFile(F);
    finally
      FileSetAttr(Filename, OldFileAttr);
    end;
  end
  else
    Result := 0;
end;

и

function FileSize(fileName : WideString) : int64;
var
  sr : TSearchRec;
begin
  if FindFirst(fileName, faAnyFile, sr ) = 0 then
     result := Int64(sr.FindData.nFileSizeHigh) shl Int64(32) + Int64(sr.FindData.nFileSizeLow)
  else
     result := -1; //incompatible types Cardinal and TSearchRec
  FindClose(sr) ;
end;

Опять орёт благим матом..:
incompatible types WideString and File


помогите решить

[BOBAH13]

странные вы, у вас функция FileSize принимает WideString, а вы пихаете F: file; вот вам и ругается компилятор

[Человек_Борща]

А вариант решения есть? string неподходит

[BOBAH13]

Логика ваша работает ))) ну очень плохо. Измените название своей функции FileSize

[SERG1980]

Есть такая уже ф-ия в модуле System
function FileSize ( var FileHandle : File; ) : Integer;
как вас сказали смените название

[Человек_Борща]

Я именно так и сделал=)