Und wie wäre es hiermit,
Delphi-Quellcode:
function ServerTypeToStrings(const svType: DWord; const Separator: String = ', '): String; overload;
...
begin
Result := '';
for I := 0 to 31 do
if Odd(svType shr I) then
if Result = '' then Result := Result + cStrings[I]
else Result := Result + Seperator + cStrings[i];
end;
wenn du es eh nicht magst, daß Strings unnötig in ihrer Länge geändert werden?
