Fleal, nose si los valores A y B son dados o si son basados en algo, pero si el valor entrado es diferente a alguno de estos 2 A y B, no lo validara el CASE y pasara directo al MSSTOP(), es lo unico que veo de extraño, faltaria saber de donde provienen los valores de la variable cTipo...
... pues le quito los caracteres que no lo sean. Es similar a lo que me propones, pero practicamente solo ocupo 4 lineas. Saludos, [quote="fleal"]Mario, Para extraer los datos del XML oText := TTxtFile():New( "ARCHIVO.XML" ) oText:nMaxLineLength := 500 nRen := oText:RecCount() + 1 ...
Olá FLeal... Obrigado pela resposta... Já havia usado o Freeimage, porém na verdade, gostaria de abrir qualquer tipo de Imagem (BMP,JPG,TIF,GIF), usando os recursos do "image.preview" do Windows, através da Classe TActiveX. ...
... ti mismo? ¿Usas alguna función de alguna librería? A 16 bits se usa el OEM pero a 32 se usa el ANSI. Por lo tanto algunos carácteres varían. Hola Fleal, asi es, una funcion propia mia, y que instrucción agregar el comando ANSI, explicame por fas, gracias
Gracias por tu respuesta fleal, pero no me funciono!!!, y por lo que estuve leyendo, la clase: oWord=TOleAuto():New( "Word.Application" ), es de xHarbour, y yo utilizo Harbour, y no doy con bola, si se trata de crear un nuevo documento, ...