![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
![]() |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
Cómo se declara y usa el tipo "Enumeration" en Delphi
Buenas foreros
Estoy buscando como definir tipos de datos ENUM en Delphi Un ejemplo en C Código:
enum FILETYPE_E {FILE_PRG = 0,FILE_TAB,FILE_PAN, FILE_SYM,}; Código:
Public Enum FILETYPE_E FILE_PRG = 0 FILE_TAB FILE_PAN FILE_SYM End Enum If resul <> FILETYPE_E.FILE_PAN Then ……. Gracias de antemano
__________________
Disfruta de la vida ahora, vas a estar muerto mucho tiempo. Última edición por dec fecha: 21-11-2018 a las 14:34:20. Razón: Poner etiquetas CODE |
#2
|
||||
|
||||
Hola a todos,
Puede revisar este artículo de Delphi Basics y también este apartado de la documentación de Embarcadero Delphi. Este sería un ejemplo con varios "tipos enumerados":
Arriba "TSound", "TMyColor", "Answer", son "enumeraciones". Así podría usarse una de ellas, por ejemplo:
|
#3
|
||||
|
||||
Enumerations in Delphi
En Delphi Basics: Enumerations, SubRanges and Sets Edito: O lees lo que DEC ya te comentó ![]()
__________________
Buena caza y buen remar... http://mivaler.blogspot.com |
#4
|
||||
|
||||
Cita:
![]() ![]() Pero no... no puede conformarse con lo que dec comentó... ![]() |
#5
|
||||
|
||||
Gracias chicos, rápidos y concretos, defino....
la función a usar es esta (definida por mi para acceder a la librería) function OpenNET(name: string; var hPort: integer): FILETYPE_E; cdecl; stdcall; external 'NetCom.dll'; _ y el código Un saludo
__________________
Disfruta de la vida ahora, vas a estar muerto mucho tiempo. Última edición por ecfisa fecha: 21-11-2018 a las 17:11:29. Razón: Agregar etiquetas [DELPHI] [/DELPHI] |
#6
|
||||
|
||||
Holaaa, se puede pasar?
Siguiendo con la conversión y vuestra estimable ayuda....para convertir una definición de funcion Basic Código:
Public Declare Function ReadVar Lib "NETCOM" (ByVal hPort As Integer, ByVal variable As String, ByVal value As String) As Integer Código PHP:
No me da error, pero no me llega la variable, supongo que hay lio entre CHAR* y STRING Una ayudita please PD: hace tiempo que quiero "regalar" a la comunidad una utilidad (Delphi) para hacer PING a multiples destinos con thread, vamos, para hacer "un analizador de red", pero solose "pegar" código, si me echais otra mano os la paso, va muy bien y la uso mucho. Gracias de antemano
__________________
Disfruta de la vida ahora, vas a estar muerto mucho tiempo. Última edición por ecfisa fecha: 21-11-2018 a las 17:12:19. Razón: Agregar etiquetas al código |
#7
|
|||
|
|||
A ver intenta de esta manera...
Saludos cordiales |
#8
|
||||
|
||||
Hola.
Un buen equivalente en Delphi a char * de C, es PChar. Por favor no te olvides de usar etiquetas cuando incluyas código en tus mensajes: ![]() (ya las agregué en tus mensajes) Saludos ![]()
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#9
|
||||
|
||||
Gracias
Ya he probado, sigo igual pero quizá sea otro problema de la librería, voy a investigar
__________________
Disfruta de la vida ahora, vas a estar muerto mucho tiempo. |
#10
|
||||
|
||||
Buenas foreros
Tema resuelto para que la librería me devuelva el valor, ella lo define internamente como Código:
"char value[30];"
y para usarlo
Gracias por vuestra colaboracion
__________________
Disfruta de la vida ahora, vas a estar muerto mucho tiempo. |
![]() |
|
|
![]() |
||||
Tema | Autor | Foro | Respuestas | Último mensaje |
¿como hacer tunneling con delphi tipo zebedee? | JXJ | Varios | 5 | 08-05-2012 18:44:02 |
¿Como se declara correctamente un constructor? | flystar | OOP | 4 | 20-04-2010 20:12:37 |
¡El Profesor Fungus me declara la guerra! | Ñuño Martínez | La Taberna | 11 | 09-07-2008 19:37:29 |
como puedo cambiar la fuente de Delphi - tipo de letra | micky mouse | Varios | 6 | 07-03-2008 02:26:12 |
Microsoft declara que Vista tiene problemas muy serios | Casimiro Notevi | Noticias | 16 | 30-01-2007 09:44:12 |
![]() |
|