FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Convertir codigo Delphi a Builder
HOla,
Ahora q tengo un poco más de tiempo estoy convirtiendo a una serie de componentes que estan creados en Delphi a Builder... Lo bueno es que son de codigo abierto, por eso me he decidido a convertir los ejemplos a Builder. Me han surgido una serie de dudas a la hora de convertir, y por eso lo indico aqui a ver si hay alguien que sepa me puede indicar . "el paso a builder" Código:
L=Round(Sqrt(Sqr(PT.x-LastBrushX)+Sqr(PT.y-LastBrushY))); Código:
if (SXSkinLibrary1.Styles[A] is TSXSkinGeneralStyle) then Código:
Dec(StartDragPT.X,Left); Al igual que creo que Inc(BrushCounter,2); // en Delphi creo que en Builder, seria algo asi como BrushCounter+=2; si existe alguien q me lo confirme. Bueno, pues eso si hay alguien que sepa delphi o que tb ha realizado alguna que otra adaptación a builder, ...y tiene tiempo pues que me heche una manilla. Gracias. Si alguien ha trabajado con estos componentes que se ponga en contacto conmigo y comente que tal le va, los problemas que ha tenido, etc. Los componentes son: http://www.saarixx.info/sxskincomponents/en/ |
#2
|
||||
|
||||
Código:
{ Object Pascal. } L = Round (Sqrt (Sqr (PT.x - LastBrushX) + Sqr (PT.y - LastBrushY))); // C++ L == (int)(sqrt (pow (PT->x - LastBrushX, 2) + pow (PT->y - LastBrushY, 2))); Por otro lado utilizo el operador flecha (->) ya que, por lo que sé, Builder utiliza punteros para referenciar los objetos. Código:
{ Object Pascal. } if (SXSkinLibrary1.Styles[A] is TSXSkinGeneralStyle) then // C++ if (strcmp (typeid (SXSkinLibrary1->Styles[A]).name (), "TSXSkinGeneralStyle") == 0) { Código:
{ Object Pascal } Dec (StartDragPT.X, Left); Inc (BrushCounter, 2); // C++ StarDragPT->X -= Left; BrushCounter += 2; Última edición por Ñuño Martínez fecha: 15-02-2008 a las 09:17:57. |
#3
|
||||
|
||||
Sólo una pequeña nota...
= es para las asignaciones en una variable y == para preguntar si una expresión es igual a otra, por lo que: Código:
// C++ L == (int) (sqrt (pow (PT->x - LastBrushX, 2) + pow (PT->y - LastBrushY, 2));
__________________
Saludos, Gabo A menos que se indique lo contrario, el código estará hecho en C++Builder. |
#4
|
||||
|
||||
[Gabo], tienes razón, pero como ya escribí antes _Willa escribió "L =..." (comparación) y no "L :=..." (asignación). De todas formas, buena puntualización que seguro que alguno se despista.
|
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Conectar a Interbase por codigo desde Builder C++ | Gabo | C++ Builder | 7 | 01-05-2015 11:04:54 |
Convertir caracter a codigo ASCII | Tecnic2 | OOP | 13 | 28-03-2009 15:07:09 |
Cambiando el codigo de delphi a builder... | paco_galo | C++ Builder | 5 | 03-12-2007 22:14:54 |
Ayuda para completar código:Traducción de Delphi a Builder | Pernorak | C++ Builder | 3 | 30-05-2007 12:45:16 |
situar metodo en el editor de codigo c++ builder | fcojavier | C++ Builder | 1 | 05-05-2005 08:11:25 |
|