Fastreport, mehrsprachige Reports

[ensaron]

Ähnlich wie user0815 mit den Variablen nutze ich folgende Funktion um die Komponenten eines Reports zu übersetzen (mittels der gnugettext):

Delphi-Quellcode:

for i := 0 to Report.ComponentCount - 1 do
begin
  if Report.Components[i] is TfrxMemoView then
  begin
    TranslateMemo := TStringList.Create;
    try
      TranslateMemo.Text := TfrxMemoView(lComponent).Memo.Text;
      for j := 0 to TranslateMemo.Count - 1 do
        TranslateMemo[j] := _(TranslateMemo[j]); //Übersetzungsfunktion der gnuggettext
      TfrxMemoView(lComponent).Memo.Text := TranslateMemo.Text;
    finally
      TranslateMemo.Free;
    end;
  end;
end;
Report.ShowReport;