FERASE
Материал из Фабиус wiki
Версия от 11:20, 17 ноября 2017; Hisava (обсуждение | вклад) (Hisava переименовал страницу FErase в 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;
