FERASE — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м |
||
| Строка 1: | Строка 1: | ||
| − | FErase - это функция, описанная в файле [[Qr_expr.pas]] | + | [[FErase]] - это функция, описанная в файле [[Qr_expr.pas]] |
| − | + | Удаление файла | |
| − | FErase( <exp> ) | + | [[FErase]]( <exp> ) |
| − | + | ||
| − | + | ||
| − | + | ||
= Полный текст функции = | = Полный текст функции = | ||
Версия 09:43, 2 мая 2017
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;
