ccPortalApplication.Translations

procedure ShowTranslation;
begin
  ccScriptEngine.Log(ccLog_Info,'ShowTranslation');

  if ccPortalApplication.TranslationExists('DE') then
  begin
    ccScriptEngine.Log(ccLog_Info,ccPortalApplication.Translations['DE'].GetMetaTag('EXAMPLETRANSLATION','Standardtext'));
    ccScriptEngine.Log(ccLog_Info,ccPortalApplication.Translations['DE'].GetComponentText('MAINFORM','TPANEL','FILEMENUPANEL',''));
  end else
  begin
    ccScriptEngine.Log(ccLog_Info,'Language not found!');
  end;
end;

List := TStringList.Create;
try
  ccPortalApplication.Translations['EN'].GetItemList('/Items/',List);
  
  for i:=0 to List.Count-1 do
    ccScriptEngine.Log(ccLog_Info,List.Strings[i]);
finally
  List.Free;
end;