Close Table

Материал из Фабиус wiki
Версия от 16:27, 26 апреля 2017; Hisava (обсуждение | вклад)

(разн.) ← Предыдущая | Текущая версия (разн.) | Следующая → (разн.)
Перейти к: навигация, поиск

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