Código Delphi [-] CONST UNO = 'uno'; DOS = 'dos'; ... Case Value of UNO: // code DOS: //code ... end;
CONST UNO = 'uno'; DOS = 'dos'; ... Case Value of UNO: // code DOS: //code ... end;