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

Материал из Фабиус wiki
Перейти к: навигация, поиск
м
м (Исходники)
Строка 3: Строка 3:
 
Close_Table(ClearFields=True)
 
Close_Table(ClearFields=True)
  
= Исходники =
+
= Текст =
  
 
  { TQREvClose_Table }
 
  { TQREvClose_Table }

Версия 14:10, 16 августа 2016

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

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