Código Delphi [-] var alfabeto: AnsiString; digito: Char; begin alfabeto := '0123456789abcdefghijklmnñopqrstuvwxyz'; digito := '9'; ShowMessageFmt('maximo: %d, valor: %d', [Length(alfabeto), AnsiPos(digito, alfabeto)]); end;
var alfabeto: AnsiString; digito: Char; begin alfabeto := '0123456789abcdefghijklmnñopqrstuvwxyz'; digito := '9'; ShowMessageFmt('maximo: %d, valor: %d', [Length(alfabeto), AnsiPos(digito, alfabeto)]); end;