Leider hilft mir das nicht weiter.
Das das Programm mehrsprachig ist und bleiben soll, habe ich die Arrays sowieso als Resourcestring hinterlegt.
Mein Problem bleibt ja weiterhin...
Ich hab es schonmal soweit gekürzt...
Delphi-Quellcode:
function Set2String(S: TEnumSet; T: TEnumTexts): String;
var i:TEnum;
begin
Result:='';
for i:=Low(TEnum) to High(TEnum) do
if i in S then
Result:=Result+rsSetValDivider+T[i];
Delete(Result,1,Length(rsSetValDivider));
Result:=Format(rsSetFormat,[Result]);
end;
aber er weigert sich standhaft irgendein Set in ein TEnumSet zu Casten
