Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros entornos y lenguajes > C++ Builder
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

 
 
Herramientas Buscar en Tema Desplegado
  #5  
Antiguo 27-10-2016
Avatar de aguml
aguml aguml is offline
Miembro
 
Registrado: may 2013
Posts: 885
Poder: 14
aguml Va por buen camino
Mi idea es dejarlo así más o menos:
Código PHP:
AnsiString CalcularValorLIC(char *cadena,int sizebuffer)
{
    
unsigned long valor1valor2 0valor3;
    
unsigned long contador 0;
    
unsigned long sizefilelic 0;
    
unsigned long retval 0;

    do {
        if (
cadena[sizefilelic] == 0x1A)
            break;
        ++
sizefilelic;
    } while(
cadena[sizefilelic]);

    
valor3 sizefilelic;
    do {
        
valor1 cadena [contador];
        
valor2 valor2 valor1 contador;
        
retval = (cadena [(valor2 % (sizefilelic 1)) + 1] + valor2 + (valor1 valor2) * valor3) * valor2;
        ++
contador;
    } while (
contador sizefilelic);
    return 
AnsiString().sprintf("%09lu"retval);

Ya que es seguro que en el buffer mio siempre va a haber una cadena ya que se forma a partir de una constante con lo que por lo menos la constante estará así que sobran tantos if. Ahora el caso es si el código que yo he modificado es capaz de realizar la misma tarea o me equivoqué en algo (lo más seguro). Si veis algo erróneo en la conversión del código por favor decidme.

Última edición por aguml fecha: 27-10-2016 a las 07:33:33.
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Ayuda a pasar este código a firemonkey. elmago00 FireMonkey 55 08-01-2015 15:25:18
ayuda con este codigo kurono Varios 5 02-04-2014 00:25:11
ayuda con este codigo kurono Varios 4 13-06-2008 01:03:29
necesito ayuda con este codigo kurono Varios 4 06-05-2008 07:02:07
procedimiento almacenado ayuda con este codigo pipecato Varios 5 16-12-2005 12:24:34


La franja horaria es GMT +2. Ahora son las 00:04:37.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi