FERASE — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м |
||
| Строка 26: | Строка 26: | ||
Result := ErrorCreate(Format(SqrExpWrongArguments, ['FILE'])); | Result := ErrorCreate(Format(SqrExpWrongArguments, ['FILE'])); | ||
end; | end; | ||
| + | |||
| + | = Смотрите также = | ||
| + | |||
| + | [[Функции Delphi]] | ||
| + | |||
| + | [[Полезные функции]] | ||
Версия 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;
