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