Comment je peux remplacer des chaînes dans une note (FastReport)?

J'ai un mémo objet dans mon rapport, et de la nécessité de remplacer "%...%" des chaînes. Par exemple, dans les Raves Rapport:

MemoBuf.ReplaceAll('%my_str%',  "new string", false);

Mais, n'existe pas une méthode (ou des biens) pour remplacer du texte, dans le FastReport. Comment je peux faire cela?

Je suis en utilisant Fast Report 4.9.72 et Delphi 2010.

Merci!

OriginalL'auteur André | 2012-02-10

  1. 6

    Puisqu'il n'est pas StringReplace dans FastReport disponible, je le ferais à partir du code Delphi. Il est possible d'importer des fonctions en quelque sorte, mais cela me semble mieux disposé. Veuillez noter que, dans ce premier exemple, je suppose que le Memo1 existe (vous obtiendrez une violation d'accès autrement).

    procedure TForm1.Button1Click(Sender: TObject);
var
  Memo: TfrxMemoView;
begin
  Memo := frxReport1.FindObject('Memo1') as TfrxMemoView;
  Memo.Text := StringReplace(Memo.Text, '%my_str%', 'new string', [rfReplaceAll]);
  frxReport1.ShowReport;
end;

    Si vous n'êtes pas sûr du nom du composant ou le type que vous devriez utiliser quelque chose comme ceci:

    procedure TForm1.Button2Click(Sender: TObject);
var
  Memo: TfrxMemoView;
  Component: TfrxComponent;
begin
  Component := frxReport1.FindObject('Memo1');
  if Component is TfrxMemoView then
  begin
    Memo := Component as TfrxMemoView;
    Memo.Text := StringReplace(Memo.Text, '%my_str%', 'new string', [rfReplaceAll]);
    frxReport1.ShowReport;
  end;
end;
    Hey, TLame! Merci, mec!

    OriginalL'auteur TLama

  2. 1

    Je ne sais pas quel est le but de ce code est dans les Raves Rapports comme je l'ai jamais utilisé, mais je peux vous suggérer des solutions de rechange pour FastReport:

    • En rapport rapide tous Mémo soutien de la substitution de variable. Configurez un rapport variable nommée "my_str", modifier votre Mémo et inclure la variable. Le texte du mémo devrait ressembler à ceci: [my_str]. C'est probablement la meilleure option. Le contenu de ces crochets est en fait un soufflé pascal expression qui peut rendre l'utilisation de champs de dataset, variables d'état, inscrit fonctions. Vous pouvez même écrire un Delphi fonction, vous inscrire avec FastReport et de l'appeler à partir de l'intérieur de la [..], le passage d'un champ à partir du jeu de données comme un paramètre. Les possibilités sont vraiment infinies.
    • FastReport mémos peuvent être manipulées à partir de Delphi côté, de sorte que vous pouvez utiliser quelle que soit la fonction que vous voulez modifier le Texte du mémo.
    • Mémos peuvent aussi être manipulées à partir du projet de script (à partir du rapport, pas de Delphes), vous pouvez aussi faire ce que vous devez faire.

    OriginalL'auteur Cosmin Prund

  3. 0

    vous pouvez utiliser ce code en rapport rapide:

    function StringReplace(const S, OldPattern, NewPattern: string;
  iReplaceAll: boolean=true; iIgnoreCase :boolean=true): string;
var
  SearchStr, Patt, NewStr: string;
  Offset: Integer;
begin
  if iIgnoreCase then begin
    SearchStr := UpperCase(S);
    Patt := UpperCase(OldPattern);
  end else begin
    SearchStr := S;
    Patt := OldPattern;
  end;
  NewStr := S;
  Result := '';
  while SearchStr <> '' do begin
    Offset := Pos(Patt, SearchStr);
    if Offset = 0 then begin
      Result := Result + NewStr;
      Break;
    end;
    Result := Result + Copy(NewStr, 1, Offset - 1) + NewPattern;
    NewStr := Copy(NewStr, Offset + Length(OldPattern), MaxInt);
    if not iReplaceAll then begin
      Result := Result + NewStr;
      Break;
    end;
    SearchStr := Copy(SearchStr, Offset + Length(Patt), MaxInt);
  end;
end;

    OriginalL'auteur MohsenB