20 replies to this topic

[enecumene]

¿Hay alguna manera de hacer un case no con Enteros sino con Strings?.

Saludos.

[Delphius]

Ummm, la verdad es que nunca lo he probado con un string pero si es válido con char:

delphi

case Opcion of
'A': ....
'B', 'C': ...
end;

Saludos,

[Delphius]

Pues una prueba que acabo de hacer me lo confirmó. No es permitido el uso de string.
El uso de char si.

[enecumene]

Gracias Delphius, encontré esto de parte de Zarko Gajic:

delphi

function StringToCaseSelect
   (Selector : string;
CaseList: array of string): Integer;
var cnt: integer;
begin
   Result:=-1;
   for cnt:=0 to Length(CaseList)-1 do
begin
     if CompareText(Selector, CaseList[cnt]) = 0 then
     begin
       Result:=cnt;
       Break;
     end;
   end;
end;

Muy ingenioso verdad? . , su uso sería:

delphi

case StringToCaseSelect('Delphi',
      ['About','Borland','Delphi']) of
   0:ShowMessage('You''ve picked About') ;
   1:ShowMessage('You''ve picked Borland') ;
   2:ShowMessage('You''ve picked Delphi') ;
end;

Aquí el link

Saludos.

[Delphius]

¿Me creerías que a ese "truco" ya lo había leído de su página pero se me olvidó por completo de que existía?

¡Las cosas de la vida! Eso me pasa por no agregar esas pequeñeces a mi biblioteca.

Mi cabeza estaba pensando en algo parecido. Tener un TStringList y asociar a cada string con una posición. Luego, emplear esa posición para el case.

Saludos,

[enecumene]

La mente es como cualquier computador, en algún momento debe fallar

[Delphius]

La mente es como cualquier computador, en algún momento debe fallar

No si tuviera Linux

Saludos,

[enecumene]

...No si tuviera Linux

jeje ¡claro!

[rgstuamigo]

¿Hay alguna manera de hacer un case no con Enteros sino con Strings?.

Saludos.

Bueno  me parece que ésta vez Zarko Gajic reinventó la rueda. ..
Podrías haberlo hecho asi:

delphi

Uses ...,...,StrUtils;
...
case AnsiIndexStr(cadena,['Uno', 'Dos', 'Tres']) of
  0 : showmessage('Uno');
  1 : showmessage('Dos');
  2 : showmessage('Tres');
  -1 : //la cadena no se encuentra en el arreglo, seria como el else del Case;
 end;

Saludos...

[Caral]

Hola
Muy interesante, no lo sabia.
Saludos

[enecumene]

Ah caray, qué fácil fue eso , muchas gracias rgstuamigo .

[Delphius]

AnsiIndexStr... ¿Donde estabas cuando Fernando te necesitaba?

Vaya, rgstuamigo me has sorprendido . ¿Quien diría que ya había algo de fábrica? Hay tantas funciones que es casi imposible saberse todas...

¿Cómo supiste o te enteraste de ella?

Saludos,

[rgstuamigo]

AnsiIndexStr... ¿Donde estabas cuando Fernando te necesitaba?

Vaya, rgstuamigo me has sorprendido . ¿Quien diría que ya había algo de fábrica? Hay tantas funciones que es casi imposible saberse todas...

¿Cómo supiste o te enteraste de ella?

Saludos,

Bueno yo me enteré  gracias a nuestra buen amiga y colega Caro en éste tema >http://www.clubdelph...ead.php?t=49653

[egostar]

Bueno yo me enteré  gracias a nuestra buen amiga y colega Caro

No se podía esperar menos de nuestra amiguita Caro.

Por cierto, felicidades por tu nombramiento en ClubDelphi amigo rgstuamigo 

Salud OS

[Delphius]

Gracias rgstuamigo por la referencia.

Secundo lo dicho por Eliseo, no se puede pedir menos de la gran maestra Caro.
Es sorprendente descubrir que hay cosas que desconocemos. Habría que investigar más a fondo las unidades (lo digo por mí). Muy seguramente hay tantos secretos entre las centenares líneas de código que esperan ser hallados.

Saludos,

[rgstuamigo]

...
Por cierto, felicidades por tu nombramiento en ClubDelphi amigo rgstuamigo 

Salud OS

Muchas gracias... y ahí estamos para las que podamos.. . Siempre me estoy dando una vueltita por acá para ver cómo están?

...
Secundo lo dicho por Eliseo, no se puede pedir menos de la gran maestra Caro.
Es sorprendente descubrir que hay cosas que desconocemos. Habría que investigar más a fondo las unidades (lo digo por mí). Muy seguramente hay tantos secretos entre las centenares líneas de código que esperan ser hallados.

Tienen toda la razón Caro es una maestra, yo en lo personal siempre estoy aprendiendo algo nuevo de ella. .
Y es verdad que investigar más a fondo las unidades se aprende bastante. .
Saludazos...

[Al González]

Bueno  me parece que ésta vez Zarko Gajic reinventó la rueda. ..
Podrías haberlo hecho asi:

delphi

Uses ...,...,StrUtils;
...
case AnsiIndexStr(cadena,['Uno', 'Dos', 'Tres']) of
  0 : showmessage('Uno');
  1 : showmessage('Dos');
  2 : showmessage('Tres');
  -1 : //la cadena no se encuentra en el arreglo, seria como el else del Case;
 end;

No creo que Zarko haya reinventado la función, Roberto.  Tal vez creó su función cuando la unidad StrUtils aún no existía en Delphi (apareció alrededor de la versión 6).

Sobre lo que comenta Marcelo, acerca de la gran cantidad de funciones desconocidas, mi primera recomendación es que se tenga el hábito de consultar la ayuda buscando por palabras claves.  Al menos la ayuda clásica de Delphi es estupenda para ello:



Otra cosa igual o más útil es hacer búsquedas de expresiones regulares con la opción Find in files del menú Search, sobre los archivos de código fuente de las bibliotecas nativas:




Volviendo al tema, me gustaría comentar que GH Freebrary tiene una función para el mismo propósito, pero opcionalmente se le puede indicar que ignore acentos y espacios laterales.

delphi

Uses
  GHFStrings;
 
procedure TForm1.Button1Click(Sender: TObject);
Var
  I :Integer;
begin
  I := ghPosStr (['viernes', 'sábado', 'domingo'], ' SABADO ', ghstcEssential);
  ShowMessage (IntToStr (I));
end;

Saludos afectuosos.

Al González.

[enecumene]

Muchas gracias por los Tips amigo Al .

Saludos.

[Delphius]

Gracias Al,
Sabía desde hace tiempo de esa posibilidad de buscar mediante expresiones regulares. Pero nunca la usé ... creo que debería empezar,... primero a leer la ayuda sobre como usar las expresiones .

GExpert también incluye su propio Search, me gusta este porque clasifica y ordena todo.

Noto unas diferencias entre la página de resultados que ofrece D6 con la que muestras en D7. En tu imagen se aprecia un "tab" con la leyenda "Search for...". En D6 no... la ventana de Mensajes es una sola. ¿Será que hay que configurar algo? 8-)

Saludos,

[rgstuamigo]

No creo que Zarko haya reinventado la función, Roberto.  Tal vez creó su función cuando la unidad StrUtils aún no existía en Delphi (apareció alrededor de la versión 6).
....

Bueno...tal parece que la funcion creada por Zarko fué posteada en Febrero del 2002 segun ésta página>http://delphi.about....g_Tips_2002.htm, eso quiere decir que la version 6 ya existía. .Lo que puede haber pasado es que quizás Zarko no lo conocía, cosa que a mi me a pasado miles de veces. , hago una funcion que me fascilite alguna tarea y resulta que en delphi ya existe una funcion similar, lo cual me agrada ya que eso quiere decir que me falta muchisimo por conocer Delphi. .

Sobre tus TIPs, la verdad no sabía que se podía  buscar de esa forma...lo cual me viene de maravilla ...muchas gracias por compartir tus conocimientos  .
Un saludo Sudamericano...