De : Julien Devillers [mailto:[email protected]] Envoyé : jeudi 14 octobre 2010 11:24 À : Lazarus mailing list Objet : [Lazarus] Strange Behaviour of TBits Hello I found a strange behaviour of TBits. Example : procedure TForm1.Button1Click(Sender: TObject); var x:TBits; begin x:=TBits.Create(); x[0] := true; showmessage(inttostr( x.size)); x[1] := false; showmessage(inttostr( x.size)); x[2] := false; showmessage(inttostr( x.size)); x[3] := true; showmessage(inttostr( x.size)); x[4] := true; showmessage(inttostr( x.size)); end; The above code returns 1, 2, 3, 3, 4 while it should return 1, 2, 3, 4, 5. I Built a TMyBits class using strictly the TBits.inc file from fpc and... the bug does not appear... ! I'm using lazarus 0.9.28.2 beta and fpc 2.4.0 with linux 64. Did I miss something ? regards Julien ----------------------- Correction : I'm using FPC 2.2.4.
-- _______________________________________________ Lazarus mailing list [email protected] http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
