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

[silvioprog]

 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@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus