Problema con condiciones
 

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

Hola.

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

Saludos

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

Hola,

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

Gracias

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. :)

Cierto! aki va:

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

te hago una pregunta.....
y que pasaria si el archivo cambia de nombre? por uno mas largo o por uno mas corto?:cool:

hola,

Los ficheros son generados por un programa que siempre pondria como mascara del nombre una palabra predefinica que es la que leo, luego pudieran agregarsele numeros etc. Por eso con comprobar que la cadena inicial es igual a la predefinida me vale.

gracias