Bitmasken prüfen

[himitsu]

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?