StrConv Modo Pauscal

Aplicaciones de código fuente abierto para descargar

StrConv Modo Pauscal

Notapor PowerDeath » Sab May 03, 2014 3:06 pm

Estoy practicando visual basic 6, y bueno, como esta función se utiliza mucho decidí traducirla a pauscal, tal vez sirva de algo.

Código: Seleccionar todo
Importar "Cadena.prp"
Proc PscDesdeUnicode(Temp:Cadena):Byte[] ' Semejante a StrConv(Cadena,VbFromUnicode)
Var i,lLen,lHackDelta:Entero, bvHack[1],bArr[]:Byte,sString:Cadena
    sString = Temp
    lLen = CadLong(sString) - 1
    ReDim bArr,lLen + 1
    Contar i = 0 a lLen
       bArr[i] = Ascii(ParteCad(Temp, (i + 1), 1))
       Seguir
    Resultado = bArr
FinProc

Proc PscAUnicode(Temp[]:Byte):Cadena ' Semejante a StrConv(Cadena,VbUnicode)
Var i,lLen,lHackDelta:Entero, bvHack[1],bArr[]:Byte,sString:Cadena
   ' bArr = Temp
    lLen = Límite(Temp)
   ' sString = RepCarac(0,lLen + 1)
    Contar i = 0 a lLen
    sString = sString + Carac(Temp[i])
    Seguir
    Devolver sString
FinProc
Imagen
PowerDeath
 
Mensajes: 160
Registrado: Sab Ago 11, 2012 5:29 am

Sponsor






Volver a Código Abierto

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 3 invitados

cron