Porque este codigo esta dando erro?

Delphi

28/10/2005

Olá tenho o seguinte codigo, porem esta dando erro, porque será?
type
 
 { Tipos de Mensagem }
 TMsgType = (etNone = 0, etOK = 1, etOKNo = 2, etOkNoCancel = 3, etYesNo = 4, etYesNoCancel = 5, etAbrotRetryIgone = 6, etRetryCancel = 7);



Erro: [Error] unitExMsg.pas(14): ´IMPLEMENTATION´ expected but ´FUNCTION´ found


Como eu criio um Type assim?

Desde já agradeço

Fellipe H.


Titanius

Titanius

Curtidas 0

Respostas

Massuda

Massuda

28/10/2005

Você não pode atribuir um valor a cada item da enumeração (em C/C++ pode); o primeiro é sempre ZERO, o segundo é 1, etc.

Se você tiver que usar valores não consecutivos, não poderá usar uma enumeração, terá que usar constantes.


GOSTEI 0
Titanius

Titanius

28/10/2005

Valeu massuda.. :D


GOSTEI 0
POSTAR