CASE
28/01/2006
0
Por que que isso não da certo?
for iCont:=0 to MDIChildCount-1 do case MDIChildren[iCont] of formCadastroUsuario: begin formCadastroUsuario.TabUser.Append; end;
Caezar
Posts
28/01/2006
Tnaires
Extraído da ajuda do Delphi:
Definição de ordinal type:
Abraços
28/01/2006
Tnaires
A única limitação da instrução case q realmente me incomoda, em relação a outras linguagens, é o fato de não poder usá-la com strings :?
28/01/2006
Macario
28/01/2006
Tnaires
Veja meu post acima.
Abraços
28/01/2006
Caezar
Criei um outro post com mais uma dúvida se alguem puder dar uma olhada:
[url]http://forum.clubedelphi.net/viewtopic.php?p=241718#241718[/url]
28/01/2006
Macario
for x:= 1 to 5 do begin case x of 1 : showmessage(´numero´+ inttostr(x)); 2 : showmessage(´numero´+ inttostr(x)); 3 : showmessage(´numero´+ inttostr(x)); 4 : showmessage(´numero´+ inttostr(x)); 5 : showmessage(´numero´+ inttostr(x)); end; end;
agora aqui tem um equivoco, que nao tinha percebido
for iCont:=0 to MDIChildCount-1 do case MDIChildren[iCont] of [b]formCadastroUsuario[/b]: begin formCadastroUsuario.TabUser.Append; end;
mas que talvez assim funcione
for iCont:=0 to MDIChildCount-1 do case MDIChildren[iCont] of MDIChildren[iCont]: begin formCadastroUsuario.TabUser.Append; end;
é so uma ideia ja que não conheço formularios MDI.
:arrow:
28/01/2006
Tnaires
case 1 of 1: // Isso sempre seria executado end;
Abraços
Clique aqui para fazer login e interagir na Comunidade :)