Fórum Campo sequencial usando numeros e letras #263107

var  
Algarismos: array[1..36] of Char =
              (´A´,´B´,´C´,´D´,´E´,´F´,´G´,´H´,´I´,´J´,´K´,´L´,´M´,
               ´N´,´O´,´P´,´Q´,´R´,´S´,´T´,´U´,´V´,´W´,´X´,´Y´,´Z´,
               ´0´,´1´,´2´,´3´,´4´,´5´,´6´,´7´,´8´,´9´);
(...)
function TForm1.GeraCodigo(CodAtual: String): String;
var
   cAux: Char;
   i, iPos: Integer;
begin
     Result := CodAtual;

     for i := Length(Result) downto 1 do
     begin
          iPos := Pos(Result[i],Algarismos);
          if iPos < Length(Algarismos) then
          begin
               cAux := Algarismos[ iPos + 1];
               Result[i] := cAux;
               break;
          end;
          Result[i] := Algarismos[1];
     end;
end;