FERASE — различия между версиями

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

Смотрите также

Полезные функции

Функции Delphi