Версия 15:13, 22 августа 2016

FErase - это функция, описанная в файле Qr_expr.pas

FErase( <exp> )

Удаление файла

Полный текст функции

{ TQREvFEraseFunction }

type
  TQREvFEraseFunction = class(TQREvElementFunction)
  public
    function Calculate: TQREvResult; override;
  end;

function TQREvFEraseFunction.Calculate: TQREvResult;
begin
  if (ArgList.Count = 1) and
    (Argument(0).Kind = ResString) then
  begin
    Result.Kind := resBool;
    Result.BooResult := DeleteFile(Argument(0).StrResult);
  end
  else
    Result := ErrorCreate(Format(SqrExpWrongArguments, ['FILE']));
end;