Wie kann ich ersetzen von Zeichenfolgen in einem memo (FastReport)?

Habe ich ein memo-Objekt in meinem Bericht, und ein müssen ersetzen Sie "% ... % " - strings. Zum Beispiel, in Rave Report:

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

Aber, nicht existiert und eine Methode (oder property), um text zu ersetzen, in der FastReport. Wie kann ich das machen?

Ich bin mit Fast Report 4.9.72 und Delphi 2010.

Dank!

InformationsquelleAutor André | 2012-02-10

  1. 6

    Da es keine StringReplace in FastReport zur Verfügung, ich würde es tun aus dem Delphi-code. Ist es möglich, die import-Funktionen irgendwie aber dies scheint mir besser angeordnet. Bitte beachten Sie, dass in diesem ersten Beispiel nehme ich an, dass die Memo1 vorhanden ist (erhalten Sie eine Zugriffsverletzung, sonst).

    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;

    Wenn Sie nicht sicher sind, über component-name oder-Typ, den Sie verwenden sollten etwas wie diese:

    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! Danke, Mann!

    InformationsquelleAutor TLama

  2. 1

    Ich weiß nicht, was der Zweck dieser code wurde in Rave Reports, da ich es nie benutzt, aber ich kann alternativen vorschlagen, für FastReport:

    • Im fast-report-alle Memo-support-Variablen-substitution. Einrichtung eines Berichts-variable mit dem Namen "my_str", Bearbeiten Sie das Memo und zählen Sie die variable. Der text in der memo würde so Aussehen: [my_str]. Dies ist wahrscheinlich die beste option. Der Inhalt dieser Klammern ist eigentlich ein voll geblasen pascal ein Ausdruck, der verwendet dataset-Felder, report Variablen, registrierten Funktionen. Man könnte sogar schreiben Sie eine Delphi-Funktion, die sich mit FastReport und rufen Sie es von innerhalb der [..] übergeben Sie ein Feld aus dem dataset als parameter. Die Möglichkeiten sind wirklich endlos.
    • FastReport die memos, die manipuliert werden können, aus der Delphi-Seite, so können Sie verwenden, was auch immer Funktion, die Sie möchten, ändern Sie den Text des Memos.
    • Memos können auch manipuliert werden von der Projekt-Skript (innerhalb des Berichts, nicht von Delphi), können Sie auch tun, was Sie tun müssen.

    InformationsquelleAutor Cosmin Prund

  3. 0

    können Sie diesen code im fast-report:

    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;

    InformationsquelleAutor MohsenB

Schreibe einen Kommentar