[Lazarus] How can I increment/decrement a alphanumeric value?

[Antônio]

Hexadecimals are base 16, with numbers from 0 to 9 and letters from A to F.

Antônio

2010/8/21 silvioprog <silvioprog at gmail.com>:
>  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
> Lazarus at lists.lazarus.freepascal.org
> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
>