Und er sah den Wald vor lauter Bäumen nicht, vielen Dank für diese Denkstütze.
Lösung meiner Frage:
- CurrentForm wird in einer Schleife befüllt (Screen.Forms[i])
- GetPropValue ermittelt den Wert einer Komponente + Eigenschaft
- UsedLanguages ist ein Array mit den verwendeten Sprachen der Ausgangsanwendung
Delphi-Quellcode:
text := GetPropValue(CurrentForm.FindComponent(SL_Object[j]),SL_Property[k]);
TBL_Lng_Texts.Append;
TBL_Lng_Texts.FindField('TXT_ID').AsInteger := prp_count;
for l:=0 to High(UsedLanguages) do
TBL_Lng_Texts.FindField('TXT_'+UsedLanguages[l]).Clear;
TBL_Lng_Texts.FindField('TXT_'+Language).AsString := text;
TBL_Lng_Texts.Post;