FERASE — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) (Новая страница: «FErase - это функция, описанная в Qr_expr.pas FErase( <exp> ) Удаление файла = Полный текст функции = { TQ…») |
Hisava (обсуждение | вклад) м |
||
| (не показано 5 промежуточных версий этого же участника) | |||
| Строка 1: | Строка 1: | ||
| − | + | [[FERASE]] - это функция, описанная в файле [[Qr_expr.pas]] | |
| − | + | Удаление файла | |
| − | + | [[FERASE]]( <exp> ) | |
| − | + | = Текст = | |
| − | + | ||
| − | + | ||
| − | = | + | |
| − | + | ||
{ TQREvFEraseFunction } | { TQREvFEraseFunction } | ||
| Строка 26: | Строка 22: | ||
Result := ErrorCreate(Format(SqrExpWrongArguments, ['FILE'])); | Result := ErrorCreate(Format(SqrExpWrongArguments, ['FILE'])); | ||
end; | end; | ||
| + | = Смотрите также = | ||
| + | [[Полезные функции]] | ||
| + | |||
| + | [[Функции Delphi]] | ||
Текущая версия на 11:21, 17 ноября 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;
