Convert Integer to BitArray

mik

Hi, I'm not able to figure out how I can convert an integer to an BitArray

Example:
8 (0,0,0,1,0,0,0,0)
3 (1,1,0,0.0.0.0.0)

I tried to Convert the Integer to a Byte[] in dotnet. This Byte[] I want to convert into an BitArray.

This Code is wrong and I can't even compile it.

Int := 8;
str := FORMAT(Int);
SystemArray := SystemConvert.FromBase64String(str);
BitArray := BitArray.BitArray(SystemArray);

FOR i := 0 TO BitArray.Length - 1  DO BEGIN
  MESSAGE(FORMAT(BitArray.Get(i)));
END;

I also tried ...

SystemArray := SystemArray.CreateInstance(GETDOTNETTYPE(SystemByte),4);

Help would be great

mik

Hi,
I managed it by myself ... (everyone feel free to post a better solution)

Int	Integer		
SystemConvert	DotNet	System.Convert.'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'	
SystemString	DotNet	System.String.'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'	
str	Text

Int := 8;
SystemString := SystemConvert.ToString(Int,2);
str := SystemString;
SystemString := PADSTR('',8-STRLEN(SystemString),'0') + str;

MESSAGE(SystemString);

Peter+is1

Hi,

Can you provide the code and variables (declarations) you use?
I cannot re-create your scenario without those...

mik

Hi,
I managed it by myself ... (everyone feel free to post a better solution)

Int	Integer		
SystemConvert	DotNet	System.Convert.'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'	
SystemString	DotNet	System.String.'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'	
str	Text

Int := 8;
SystemString := SystemConvert.ToString(Int,2);
str := SystemString;
SystemString := PADSTR('',8-STRLEN(SystemString),'0') + str;

MESSAGE(SystemString);