Club Delphi  
    Paypal   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

Coloboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #3  
Antiguo 26-11-2008
Avatar de Caro
*Caro* Caro is offline
Moderadora
 
Registrado: jul 2004
Ubicación: Cochabamba, Bolivia
Posts: 2.544
Poder: 24
Caro Va por buen camino
Cita:
Empezado por emeceuy Ver Mensaje
hola, tengo una consulta sencilla, estuve leyendo pero no encontré como hacerlo si es que se puede...

me gustaría crear una función así: function mifuncion(parametro: letraABoC): boolean;

el tema es que quiero pasarle como parámetro A, B o C solamente, como hago? porque el tipo char ademitiria todas las letras... y la otra pregunta, necesariamente tendrías que escribir así para llamar la funcion?: mifuncion('A') o puedo evitar las comillas y escribir mifuncion(A), eso se puede?
Hola, si es de tipo Char no, tendrías que verificar antes si son esas letras:

Código Delphi [-]
var
 letra : Char;
begin
 ......
 if (letra='A') or (letra='B') or (letra='C') then
  mifuncion(letra);

pero si tu te defines tu tipo de dato si se puede, sería así:

Código Delphi [-]
type
 TLetras=(A,B,C);
..........
..........
 
function mifuncion(letra : TLetras) : Boolean;
begin
 //
end;

............
begin
 mifuncion(A)
end;

Saluditos
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar.
Responder Con Cita
 


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
Error Raro sobre archivo "ntdll.dll" que no consigo encontrar el motivo AGAG4 Impresión 1 23-11-2007 07:11:17
Error "Invalid pointer operation" en función contenida en DLL Albano OOP 2 20-06-2007 23:01:31
Cómo estrujarse las meninges con la función "email" dec PHP 6 19-01-2007 15:36:02
Cómo insertar "NULL" en un parametro de INSERT en SQL Joselito SQL 4 23-10-2005 00:17:35
Optener un Stream como "Result" en una funcion sitrico Varios 3 24-11-2004 22:06:38


La franja horaria es GMT +2. Ahora son las 18:50:46.


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