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