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

[silvioprog]

 Em 21/08/2010 10:49, Wildfire escreveu:

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

Silvio, read the links, those two functions provide exactly what you want (use BASE 36)

Wow, perfectly correct,

procedure IncrementHex(var HexS: string);
begin
  HexS := dec2numb(numb2dec(HexS, 36) + 1, 3, 36);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  S: string;
begin
  S := Edit1.Text;
  IncrementHex(S);
  Edit2.Text := S;
end;

Yes, thanks mens :)

Silvio Clécio

--
_______________________________________________
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus