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

Материал из Фабиус wiki
Перейти к: навигация, поиск
м (Смотрите также)
м
 
(не показано 6 промежуточных версий этого же участника)
Строка 1: Строка 1:
FullNameGroup - это функция, описанная в файле [[QrAddFn.pas]]
+
[[FullNameGroup]] - это функция, описанная в файле [[QrAddFn.pas]]
 
+
Функция возвращает полное название группы
FullNameGroup( KINDDOC, CODEGROUP )
+
[[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]]
Функция [[FULLNAMEGROUP2]]
+
 
+
[[Функции Delphi]]
+
  
 
[[Полезные функции]]
 
[[Полезные функции]]

Текущая версия на 14:32, 10 января 2020

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

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

FullNameGroup( KINDDOC, CODEGROUP )

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

FULLNAMEGROUP2

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