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

Un ejemplo en VB

¿Sabeis como se define (y accede) estos "enum" en nuestro querido Delphi?

Gracias de antemano

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":

Código Delphi [-]
type
  TSound = (tsClick, tsClack, tsClock);
  TMyColor = (mcRed, mcBlue, mcGreen, mcYellow, mcOrange);
  Answer = (ansYes, ansNo, ansMaybe)

Arriba "TSound", "TMyColor", "Answer", son "enumeraciones". Así podría usarse una de ellas, por ejemplo:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
var
  Sound: TSound;
begin
  Sound := TSound.tsClick;

  //

  if Sound = TSound.tsClick then
    ShowMessage('Sound is tsClick');

  //

end;

Enumerations in Delphi

En Delphi Basics: Enumerations, SubRanges and Sets

Edito: O lees lo que DEC ya te comentó :D

¡Hey! :D :D

Pero no... no puede conformarse con lo que dec comentó... :D En efecto, se ve cómo declarar (pero no completamente) un tipo "enumeración", y, se ve cómo se puede asignar un determinado valor a una variable de dicho tipo, empero, hay más cosas por aprender, como posibles funciones útiles para los tipos "enumeración", etc.

Gracias chicos, rápidos y concretos, defino....

Código Delphi [-]
type FILETYPE_E = (
    FILE_PRG = 0,
    FILE_TAB,
    FILE_PAN,
    FILE_SYM);

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

Código Delphi [-]
var
  resultado: FILETYPE_E;
begin
  resultado := OpenNET(ip_cnc, hPort);
  if resultado <> FILETYPE_E.FILE_PAN then
    Exit;

Un saludo

Holaaa, se puede pasar?

Siguiendo con la conversión y vuestra estimable ayuda....para convertir una definición de funcion

Basic
C
Delphi?

Código Delphi [-]
function ReadVar(hPort: integer; variable: string; var value: string): integer; cdecl; stdcall; external 'Netcom.dll';

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

A ver intenta de esta manera...

Código Delphi [-]
function ReadVar(hPort: integer; variable: PAnsichar; value:PAnsichar): integer; stdcall; external 'Netcom.dll';

Código Delphi [-]
var
   lpVariable, lpValor:PAnsiChar;
   hPort, retval:Integer;
begin
     lpVariable   :='La_Variable'';
     lpValor:='';

     retval:=ReadVar(hPort, lpVariable, lpValor);

Saludos cordiales

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 :)

Gracias
Ya he probado, sigo igual pero quizá sea otro problema de la librería, voy a investigar

Buenas foreros
Tema resuelto
para que la librería me devuelva el valor, ella lo define internamente comoasi que en la definición de la función lo he pasado a un array dinamico de ansichar

Código Delphi [-]
function ReadVar(hPort: integer; variable: ansistring; var value: array of ansichar): DNCRESULT_E; cdecl; stdcall; external 'netcom.dll';

y para usarlo

Código Delphi [-]
var
  resultado: DNCRESULT_E;
  value: array[0..31] of ansichar;
begin
      resultado := ReadVar(hPort, variable[i], value);
      if resultado = DNCRESULT_E.DNC_SUCCESS then
         Lx.Caption := String(value);

end;

Gracias por vuestra colaboracion