FERASE

Материал из Фабиус wiki
Перейти к: навигация, поиск

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;

Смотрите также

Функции Delphi

Полезные функции