Текущая версия на 08:55, 5 июля 2019

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

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

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

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

Пример

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

@@ Строка 1: / Строка 1: @@
-StrTran - это функция, описанная в файле Qr_expr.pas
+[[StrTran]] ( [[STRTRAN]] ) - это функция, описанная в файле [[Qr_expr.pas]]
-StrTran( <Exp>,  <Exp>,  <Exp> )
+  Замена символов в символьной строке
-Замена символов в символьной строке
+[[StrTran]]( <Exp>,  <Exp>,  <Exp> )
-StrTran( Строка,  Что_искать,  Чем_заменить )
+[[StrTran]]( Строка,  Что_искать,  Чем_заменить )
+= Пример =
+ [[StrTran]]( [[Str]]( [[Abs]]( aa ) ), ',', '.' )
-= Полный текст функции =
+= Смотрите также =
+[[Полезные функции]]
-{ TQREvStrTranFunction }
+[[Функции Delphi]]
- type
+[[STRTRAN]]
-   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;