Problema con condiciones

[Anel Hernandez]

Hola,

estoy haciendo una busqueda de ficheros y luego de encontrado un fichero especifico realizar diversas operaciones con el.

cuando hago

Código Delphi [-]
if  RightStr(SR.Name,4)='.inp' then calcular;

funciona perfectamente.

cuando hago

Código Delphi [-]
if  LeftStr(SR.Name,6)='CALMET' then calcular;

funciona perfectamente.

pero cuando las combino:

Código Delphi [-]
if  (RightStr(SR.Name,4)='.inp') and (LeftStr(SR.Name,6)='CALMET') then calcular;

la primera condicion me da falso en ficheros de extension '.inp'. Lo he debugueado y no se porque.

pudieran ayudarme?

gracias

[[newtron]]

Hola.

¿Será por las mayúsculas/minúsculas?

Saludos

[Anel Hernandez]

ya probe eso y nada. ademas funcionan independientemente, por separado, pero cuando las combino, no.

[Anel Hernandez]

Hola,

pues si, era problema de mayúsculas/minúsculas! Disculpen haberlos hecho perder tiempo y romperse la cabeza.

Gracias

[[Al González]]

Empezado por Anel Hernandez

pues si, era problema de mayúsculas/minúsculas!

No comentas cómo lo resolviste, pero siendo un problema de mayúsculas y minúsculas lo puedes controlar de esta forma:

Código Delphi [-]
If ANSIStartsText ('CALMET', SR.Name) And ANSIEndsText ('.inp', SR.Name) Then

Saludos.

[Anel Hernandez]

Cierto! aki va:

Código Delphi [-]
if  (LowerCase(RightStr(SR.Name,4))='.inp') and (LowerCase(LeftStr(SR.Name,6))='calmet') then calcular;