freepascal.ru

Код: Выделить всё

function TextFileToString(const FName: TFileName): string;
var
  St: TStringList;
begin
    Result := '';
  try
    St:= TStringList.Create;
    try
      St.LoadFromFile(FName);
     Result:= St.Text
    except
      showmessage ('исключение');
      Result:= '';   // **************** добавил
   end;
  finally
    St.Free
  end;
end;  

Код: Выделить всё

function GetFileSize(FileName: String): Int64;
var
  FS: TFileStream;
begin
  try
    FS := TFileStream.Create(Filename, fmOpenRead);
  except
    Result := -1;
  end;
  if Result <> -1 then Result := FS.Size;
  FS.Free;
end;

Код: Выделить всё

function GetFileSize(FileName: String): Int64;
var
  FS: TFileStream;
begin
  Result := -1;
  try
    try
      FS := TFileStream.Create(Filename, fmOpenRead);
      Result := FS.Size;
    except
    ///обработка ошибки  
    finally
       FS.Free;
  end;
end;

Код: Выделить всё

function TextFileToString(const FName: TFileName): string;
var
  St: TStringList;
begin
  Result := '';
  if (FileSizeUtf8(FName) < {ваш размер}) and (FileExistsUTF8(FName)) then
  begin
    try
      St:= TStringList.Create;
      try
        St.LoadFromFile(FName);
        Result:= St.Text
      except
        showmessage ('исключение');
        Result:= '';   // **************** добавил
      end;
  finally
    St.Free
  end;
end;
end;