我想知道如何 "fill" CollectLangString 中定义的 TStings？

Question

TLang 下的 "engine" 是什么...

TLang 在我的小项目中还可以，但在更大的项目中很难管理。我试图弄清楚它是如何工作的。我在 FMX.Types 资助了许多过程和函数。我专注于：CollectLangStart、CollectLangFinish 和 CollectLangStrings。可以编译调用这些函数，但我不知道这个 TStrings 何时何地被填充，TStrings 保持为空。文档谈论 "scene" 但它非常有限。

Answer 1

TStyleManager.UpdateScenes 必须在 CollectLangStart 和复制 CollectLangStrings

之间调用

var
  Str: TStrings;
begin
  CollectLangStart;
  TStyleManager.UpdateScenes;
  Str := TStringList.Create;
  try
    Str.Assign(CollectLangStrings); 
    Str.SaveToFile(ExtractFilePath(ParamStr(0)) + 'lang.lng');
  finally   
    Str.Free;
    CollectLangFinish;
  end;
end;

我想知道如何 "fill" CollectLangString 中定义的 TStings？

I want to know how to "fill" the TStings defined in CollectLangString?

delphi

firemonkey