Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 15-11-2017
Javier13 Javier13 is offline
Miembro
NULL
 
Registrado: jun 2017
Posts: 34
Poder: 0
Javier13 Va por buen camino
IndexOf

Var
alfabeto: String;
maximo: Integer;
digito : string;

begin

alfabeto:='abcdefghijklmnñopqrstuvwxyz';
maximo:=Length(alfabeto);
valor:=alfabeto.IndexOf(digito);


Lo que quiero hacer es. Saber la posición del alfabeto para eso cheque que se utiliza TStringList lo utilize pero luego tuve unos problemas no se si me puedan ayudar para hacer un indice

Última edición por Javier13 fecha: 15-11-2017 a las 22:59:08.
Responder Con Cita
  #2  
Antiguo 16-11-2017
Avatar de Caminante
Caminante Caminante is offline
Miembro
 
Registrado: oct 2010
Ubicación: Lima - Peru
Posts: 338
Poder: 14
Caminante Va camino a la fama
Hola

Y que problemas tuviste con el stringlist???

Saludos
__________________
Caminante, son tus huellas el camino y nada más; Caminante, no hay camino, se hace camino al andar.
Antonio Machado
Responder Con Cita
  #3  
Antiguo 16-11-2017
Javier13 Javier13 is offline
Miembro
NULL
 
Registrado: jun 2017
Posts: 34
Poder: 0
Javier13 Va por buen camino
Mi código es este

var
alfabeto : String;//TStringList;
maximo : Integer;
valor : Integer;
begin

alfabeto:='abcdefghijklmnñopqrstuvwxyz';
maximo:=Length(alfabeto);
valor:=alfabeto.IndexOf(digito);

Quiero hacer 3 cosas
1.- es hacer el abecedario
2.- cuantos caracteres tiene el abecedario
3.- saber el índice del abecedario
El 3 es el que no me sale
y para saber el indice tienes que usar TStringList para usar IndexOf
Responder Con Cita
  #4  
Antiguo 16-11-2017
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.021
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Bienvenido a clubdelphi, como siempre aconsejamos a los nuevos, no olvides leer nuestra guía de estilo, gracias por tu colaboración

Y recuerda poner los tags al código fuente, ejemplo:



Gracias

Y pon títulos descriptivos a tus preguntas, "indexof" no es ningún título que describa nada.
Saludos.
Responder Con Cita
  #5  
Antiguo 16-11-2017
Javier13 Javier13 is offline
Miembro
NULL
 
Registrado: jun 2017
Posts: 34
Poder: 0
Javier13 Va por buen camino
Mi código es este

Código Delphi [-]
var
  alfabeto : String;//TStringList;
  maximo : Integer;
  valor : Integer;
begin

  alfabeto:='0123456789abcdefghijklmnñopqrstuvwxyz';
  maximo:=Length(alfabeto);
  valor:=alfabeto.IndexOf(digito);

Quiero hacer 3 cosas
1.- es hacer el abecedario
2.- cuantos caracteres tiene el abecedario
3.- saber el índice del abecedario
El 3 es el que no me sale
y para saber el indice tienes que usar TStringList para usar IndexOf
Responder Con Cita
  #6  
Antiguo 16-11-2017
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.021
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Creo que no se entiende lo que preguntas, ¿qué es "hacer el abecedario"? ¿qué es "saber el índice del abecedario"?
Responder Con Cita
  #7  
Antiguo 16-11-2017
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
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
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita
  #8  
Antiguo 16-11-2017
Javier13 Javier13 is offline
Miembro
NULL
 
Registrado: jun 2017
Posts: 34
Poder: 0
Javier13 Va por buen camino
Seria mas fácil la función ansipos?
Responder Con Cita
  #9  
Antiguo 16-11-2017
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola.
Cita:
Empezado por Javier13 Ver Mensaje
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
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita
  #10  
Antiguo 20-11-2017
hal1967 hal1967 is offline
Miembro
 
Registrado: feb 2012
Posts: 32
Poder: 0
hal1967 Va por buen camino
Pensando un poco en la inmortalidad del cangrejo

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.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Buscar substring en string con IndexOf? Belaix Varios 3 12-11-2008 23:22:31


La franja horaria es GMT +2. Ahora son las 00:13:31.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi