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

Материал из Фабиус wiki
Перейти к: навигация, поиск
м (Смотрите также)
м (Смотрите также)
Строка 22: Строка 22:
  
 
= Смотрите также =
 
= Смотрите также =
 +
[[FULLNAMEGROUP2]]
 +
 
[[Полезные функции]]
 
[[Полезные функции]]
  
 
[[Функции Delphi]]
 
[[Функции Delphi]]
 
[[FULLNAMEGROUP2]]
 

Версия 15:00, 5 мая 2017

FullNameGroup - это функция, описанная в файле QrAddFn.pas

Функция возвращает полное название группы

FullNameGroup( KINDDOC, CODEGROUP )

Полный текст функции

type
  TQREvFullNameGroup = class(TQREvDbFunction)
  public
    function Calculate: TQREvResult; override;
  end;
function TQREvFullNameGroup.Calculate: TQREvResult;
begin
  if (ArgList.Count = 2) and (Argument(0).Kind = ResString) and (Argument(1).Kind = ResString) then
    begin
      Result.Kind := ResString;
      Result.StrResult := FullNameGroup(Argument(0).StrResult, Argument(1).StrResult);
    end
  else
    Result := ErrorCreate(Format(SqrExpWrongArguments, ['FullNameGroup']));
end;

Смотрите также

FULLNAMEGROUP2

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

Функции Delphi