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

Материал из Фабиус wiki
Перейти к: навигация, поиск
м
м
 
(не показано 7 промежуточных версий этого же участника)
Строка 1: Строка 1:
Close_Table - это процедура
+
[[Close_Table]] - это процедура
 +
Без описания
 +
[[Close_Table]]( ClearFields=True )
  
Close_Table(ClearFields=True)
+
= Текст =
  
= Смотрите также =
+
{ TQREv[[Close_Table]] }
  
[[Функции Delphi]]
+
type
 +
  TQREv[[Close_Table]] = class(TQREvDbFunction)
 +
  public
 +
    function Calculate: TQREvResult; override;
 +
  end;
  
 +
function TQREv[[Close_Table]].Calculate: TQREvResult;
 +
var ClearFlds: Boolean;
 +
begin
 +
  ClearFlds := True;
 +
  if ArgList.Count > 0 then
 +
      ClearFlds := Argument(0).BooResult;
 +
  [[CloseTable]](GetWorkArea, ClearFlds);
 +
  Result := NilValue;
 +
end;
 +
 +
= Смотрите также =
 
[[Полезные функции]]
 
[[Полезные функции]]
 +
 +
[[Функции Delphi]]

Текущая версия на 16:27, 26 апреля 2017

Close_Table - это процедура

Без описания

Close_Table( ClearFields=True )

Текст

{ TQREvClose_Table }
type
 TQREvClose_Table = class(TQREvDbFunction)
 public
   function Calculate: TQREvResult; override;
 end;
function TQREvClose_Table.Calculate: TQREvResult;
var ClearFlds: Boolean;
begin
  ClearFlds := True;
  if ArgList.Count > 0 then
     ClearFlds := Argument(0).BooResult;
  CloseTable(GetWorkArea, ClearFlds);
  Result := NilValue;
end;

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

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

Функции Delphi