length

Ciao a tutti, ho questo codice che si comporta in modo strano: B4X: Dim bc As ByteConverter Dim msg As String Dim t(1) As Byte Dim crc As Int If PacketLen = 0 And Data.Length >= 2 Then PacketLen = Bit.And(Data(1), 0xFF) PacketLen = Bit.ShiftLeft(PacketLen...

Ciao a tutti, ho questo codice che si comporta in modo strano: B4X: Dim bc As ByteConverter Dim msg As String Dim t(1) As Byte Dim crc As Int If PacketLen = 0 And Data.Length >= 2 Then PacketLen = Bit.And(Data(1), 0xFF) PacketLen = Bit.ShiftLeft(PacketLen...

I tried to convert the function below from Delphi to B4A, but I'm stuck in ths part of the code: B4X: NewText := NewText + Chr((Ord(Key(x)) xor Ord(Text(y)))); What is an how to use the equivalent commands (chr, xor, ord) in B4A? Spoiler: Delphi function B4X: function ShuffleText(Text, Key...

I tried to convert the function below from Delphi to B4A, but I'm stuck in ths part of the code: B4X: NewText := NewText + Chr((Ord(Key(x)) xor Ord(Text(y)))); What is an how to use the equivalent commands (chr, xor, ord) in B4A? Spoiler: Delphi function B4X: function ShuffleText(Text, Key...

Hi communities, I'm trying to write a solution that prints decimal places in euros. I can't find a solution that's common to all the numbers. Has anyone had the same problem? any advice is accepted. Thank you Code: Lprezzo.Text=Prezzo1 If Lprezzo.Text.Length=3 Or Lprezzo.Text.Length=4 And...