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

Материал из Фабиус wiki
Перейти к: навигация, поиск
м
м (Смотрите также)
 
(не показано 9 промежуточных версий этого же участника)
Строка 1: Строка 1:
at - это функция, написанная на Delphi в файле [[Qr_expr.pas]]
+
[[AT]] - это функция, описанная в файле [[Qr_expr.pas]]
 +
Позиция первого вхождения подстроки в символьную строку
 +
[[AT]]( <Exp>,  <Exp> )
  
AT( <Exp>, <Exp> )
+
[[AT]]( 'что искать', 'где искать' )
 +
= Пример =
 +
  [[AT]]( '2', '1232' )
 +
[[Файл:05-09-2016 14-45-14.png]]
  
Позиция первого вхождения подстроки в символьную строку
+
= Смотрите также =
 +
[[Полезные функции]]
  
At( 'что искать', 'где искать' )
+
[[RAT]]
 
+
= Примеры =
+
 
+
  b1 := at( pref_from, xml_text )
+
 
+
= Полный текст функции =
+
 
+
{ TQREvAtFunction }
+
 
+
type
+
  TQREvAtFunction = class(TQREvElementFunction)
+
  public
+
    function Calculate: TQREvResult; override;
+
  end;
+
 
+
function TQREvAtFunction.Calculate: TQREvResult;
+
var
+
  OffSet: integer;
+
begin
+
  if (ArgList.Count >= 2) and
+
    (Argument(0).Kind = ResString) and
+
    (Argument(1).Kind = ResString) then
+
  begin
+
    Result.Kind := ResInt;
+
    if (ArgList.Count > 2) then
+
      OffSet := QrEvResultToInt(Argument(2))
+
    else
+
      OffSet := 1;
+
    Result.IntResult := PosEx(Argument(0).StrResult, Argument(1).StrResult, OffSet);
+
  end
+
  else
+
    Result := ErrorCreate(Format(SqrExpWrongArguments, ['AT']));
+
end;
+

Текущая версия на 14:12, 6 марта 2020

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

Позиция первого вхождения подстроки в символьную строку

AT( <Exp>, <Exp> )

AT( 'что искать', 'где искать' )

Пример

 AT( '2', '1232' )

05-09-2016 14-45-14.png

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

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

RAT