Hexadecimals are base 16, with numbers from 0 to 9 and letters from A to F.
Antônio 2010/8/21 silvioprog <[email protected]>: > uses > StrUtils; > > function IncStr(const AString: string; const ADigits: Byte = 3): string; > begin > Result := Dec2Numb(Numb2Dec(AString, 36) + 1, ADigits, 36); > end; > > procedure TForm1.Button1Click(Sender: TObject); > begin > Edit2.Text := IncStr(Edit1.Text); > end; > > Thats all ;) > > Silvio Clécio > > -- > _______________________________________________ > Lazarus mailing list > [email protected] > http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus > -- _______________________________________________ Lazarus mailing list [email protected] http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
