Версия 08:52, 22 сентября 2016

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

StrTran( <Exp>, <Exp>, <Exp> )

Замена символов в символьной строке

StrTran( Строка, Что_искать, Чем_заменить )

Пример

StrTran( Str( Abs( aa ) ), ',', '.' )

@@ Строка 7: / Строка 7: @@
 StrTran( Строка,  Что_искать,  Чем_заменить )
-= Полный текст функции =
+= Пример =
-{ TQREvStrTranFunction }
- type
-   TQREvStrTranFunction = class(TQREvElementFunction)
-   public
-     function Calculate: TQREvResult; override;
-   end;
- function TQREvStrTranFunction.Calculate: TQREvResult;
- begin
-   if (ArgList.Count = 3) and
-     (Argument(0).Kind = ResString) and
-     (Argument(1).Kind = ResString) and
-     (Argument(2).Kind = ResString) then
-   begin
-     Result.Kind := ResString;
-     Result.StrResult :=
-       StringReplace(Argument(0).StrResult, Argument(1).StrResult,
-       Argument(2).StrResult, [rfReplaceAll]);
-   end
-   else
-     Result := ErrorCreate(Format(SqrExpWrongArguments, ['StrTran']));
- end;
-= Пример использования =
   StrTran( Str( Abs( aa ) ), ',', '.' )