[Lazarus] TDBGrid

Bernd Kreuss prof7bit at googlemail.com
Sat Aug 21 16:02:05 CEST 2010


Antônio,

why reinvent the wheel...?

as already pointed out by Henry yesterday:

http://freepascal.org/docs-html/rtl/strutils/dec2numb.html
http://freepascal.org/docs-html/rtl/strutils/numb2dec.html

it is as easy as:

Uses strutils;

Procedure IncrementHex(Var HexS:String);
Begin
   HexS := dec2numb(numb2dec(HexS) + 1);
End;


Cheers, A.




More information about the Lazarus mailing list