Просмотр исходного текста страницы FERASE

[[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]]