Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 14-11-2017
Javier13 Javier13 is offline
Miembro
NULL
 
Registrado: jun 2017
Posts: 34
Poder: 0
Javier13 Va por buen camino
Como puedo pasar este codigo a delphi el codigo de la imagen es codigo python

Anexo la imagen en un archivo .rar
les agradecía demasiado

Última edición por Javier13 fecha: 21-11-2017 a las 22:27:12.
Responder Con Cita
  #2  
Antiguo 14-11-2017
Avatar de MAXIUM
MAXIUM MAXIUM is offline
Miembro
 
Registrado: may 2005
Posts: 1.485
Poder: 20
MAXIUM Va camino a la fama
Seria más fácil saber el objetivo de dicha función ¿Que es lo que hace?
Responder Con Cita
  #3  
Antiguo 14-11-2017
Javier13 Javier13 is offline
Miembro
NULL
 
Registrado: jun 2017
Posts: 34
Poder: 0
Javier13 Va por buen camino
Convierte cualquier base de decimal a hexadecimal etc.
ese código convierte cualquier base no nada mas una
Responder Con Cita
  #4  
Antiguo 14-11-2017
Avatar de MAXIUM
MAXIUM MAXIUM is offline
Miembro
 
Registrado: may 2005
Posts: 1.485
Poder: 20
MAXIUM Va camino a la fama
Existe la función IntToHex ¿es eso?
1.- http://www.delphibasics.co.uk/RTL.asp?Name=IntToHex
2.- http://docs.embarcadero.com/products...4@Integer.html
Responder Con Cita
  #5  
Antiguo 14-11-2017
Javier13 Javier13 is offline
Miembro
NULL
 
Registrado: jun 2017
Posts: 34
Poder: 0
Javier13 Va por buen camino
Pero no nada mas convierto a esa base, sino ese código hace cualquier base en una sola funcion
por eso quiero pasar ese cogido a delphi
Responder Con Cita
  #6  
Antiguo 14-11-2017
Avatar de MAXIUM
MAXIUM MAXIUM is offline
Miembro
 
Registrado: may 2005
Posts: 1.485
Poder: 20
MAXIUM Va camino a la fama
Cita:
Empezado por Javier13 Ver Mensaje
Convierte cualquier base de decimal a hexadecimal etc.
ese código convierte cualquier base no nada mas una
Oh bueno, ahora entendí. Creo que esto puede ser de utilidad How to convert between binary, octal, decimal and hexadecimal
http://delphi.cjcsoft.net/viewthread.php?tid=45966

Por supuesto también se puede traducir el código que has puesto si no sirve lo anterior y seguimos con el hilo.
Responder Con Cita
  #7  
Antiguo 14-11-2017
Javier13 Javier13 is offline
Miembro
NULL
 
Registrado: jun 2017
Posts: 34
Poder: 0
Javier13 Va por buen camino
Lo que busco es traducir ese codigo a delphi
te agradecería mucho
Responder Con Cita
  #8  
Antiguo 14-11-2017
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.021
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Cita:
Empezado por Javier13 Ver Mensaje
Lo que busco es traducir ese codigo a delphi
te agradecería mucho
Ve haciéndolo y te vamos ayudando con los problemas que tengas.
Responder Con Cita
  #9  
Antiguo 15-11-2017
Javier13 Javier13 is offline
Miembro
NULL
 
Registrado: jun 2017
Posts: 34
Poder: 0
Javier13 Va por buen camino
Así va mi codigo:

function Conversion(Numero, desde, hasta: string): string;
var
k : Integer; //ya
n : Integer; //creo
digito : string;
valor : Integer;
pos : Integer;
alfabeto : String;//TStringList;
alfalis : TStringList;
maximo : Integer;
p : Integer;
resultado : String;
actual : Real;
division : integer;
//z : extended;
resta : integer;
resultadok: Real;
indice : string;
begin
// Round : redondea un Número de punto flotante a un valor entero.
// Length :
// Power : Potencia
// div : Divicion entera
// Mod : Modulo o resuduo

alfabeto:='abcdefghijklmnñopqrstuvwxyz';
maximo:=Length(alfabeto);


if not (StrToInt(desde) < maximo) and (StrToInt(desde) >1) then begin
Showmessage('Base origen imposible');
Exit;
end;

if not (StrToInt(hasta) < maximo) and (StrToInt(hasta) >1) then begin
Showmessage('Base destino imposible');
Exit;
end;

k:=0;
n:= Length(Numero);

for pos in [0..n] do begin
digito:=numero[pos];
end;

if not (edNumero.Text<> digito) and (edNumero.Text<>alfabeto)then begin
Showmessage(Digito + ' No es valido en ninguna base');
Exit;
end;
{ valor:=alfabeto.IndexOf(digito); }

if not valor < StrToInt(desde) then begin
Showmessage(Digito + ' No es valido en base origen');
Exit;
end;

k:= valor*StrToInt(desde);
resta:= (n - pos - 1);
resultadok:= Power(k,resta);
p:=0;

while hasta < IntToStr(k) do begin
p:= p+1;
resultado:= '';
end;

while p > 0 do begin
p:=p-1;
actual:= (power(StrToInt(hasta),p));
resultado:=resultado+alfabeto+IntToStr((k div Round(actual)));
k:= k mod Round(actual);
Result:=resultado;
end;
end;
Responder Con Cita
  #10  
Antiguo 16-11-2017
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Poder: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Por favor, usa las etiquetas adecuadas para publicar código:



LineComment Saludos
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

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
Como compilo este codigo dll en delphi ? helio Varios 5 31-08-2016 23:04:24
Ayuda a pasar este código a firemonkey. elmago00 FireMonkey 55 08-01-2015 16:25:18
Pasar este mini-codigo a C++Builder aguml C++ Builder 10 24-06-2014 22:09:12
Como implementar este codigo en delphi 7 freddiaz07 Internet 4 16-09-2011 23:34:39
Porque este código me da error (adjunto código) David JAVA 1 12-03-2009 21:07:27


La franja horaria es GMT +2. Ahora son las 01:38:25.


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