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

Материал из Фабиус wiki
Перейти к: навигация, поиск
м
м (Смотрите также)
 
(не показано 7 промежуточных версий этого же участника)
Строка 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;
+
 
+
= Пример использования =
+
 
+
StrTran( Str( Abs( aa ) ), ',', '.' )
+

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

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

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

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

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

Пример

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

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

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

Функции Delphi

STRTRAN