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