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

Материал из Фабиус wiki
Перейти к: навигация, поиск
м (Текст)
м
Строка 1: Строка 1:
Close_Table - это процедура
+
[[Close_Table]] - это процедура
  
 
Close_Table(ClearFields=True)
 
Close_Table(ClearFields=True)

Версия 16:24, 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

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