Close Table

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