IndexOf

[ecfisa]

Hola Javier13.

El planteo está bastante confuso, pero a ver si se trata de algo así...

Código Delphi [-]
...
var
  TS: TStringList;
  maximo, valor: Integer;
  digito: Char;
begin
  digito := '9';
  TS := TStringList.Create;
  try
    TS.CommaText := '0,1,2,3,4,5,6,7,8,9,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';
    maximo := TS.Count;
    valor  := TS.IndexOf(digito);
    ShowMessageFmt('maximo: %d, valor: %d',[maximo, valor]);
  finally
    TS.Free;
  end;
end;

Saludos

[Javier13]

Seria mas fácil la función ansipos?

[ecfisa]

Hola.

Empezado por Javier13

Seria mas fácil la función ansipos?

Si por supesto.

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;

Saludos

[hal1967]

Todo muy bien y didáctico pero

Ya el alfabeto está definido, la A es 65, la B 66 y así vamos.

Código Delphi [-]
Ord('A') -64 // da  1

Si quieres saber la posición de cualquier letra en la variable x sería

Código Delphi [-]
  Ord(x) - 64

o mejor

Código Delphi [-]
  Ord(upcase(x)) - 64

... y con el espaÑol hemos topado

Entonces, un arreglo o mejor un string que no es lo mismo pero es igual

Código Delphi [-]
const
  alfabeto : string = 'abcdefghijklmnñopqrstuvwxyz';

así la posicion de digamos la letra "j" la podemos encontrar con la función pos (o ansipos si tenemos algo de previsión)

Código Delphi [-]
  pos('j', alfabeto) // ---> debe dar 10 (si no conté mal)

Digamos que deseas viajar en el tiempo y volver a los 70, entonces necesitas poder ubicar "Ll" y "ch"

la solución de https://www.clubdelphi.com/foros/ima...ine=1443014892 ecfisa es la que vale.