Jump to content
Fórum Script Brasil
  • 0

[resolvido] Usando Comando "case X Of"


Pirambu!
 Share

Question

Estou precisando aplicar o comando "Case " da seguinte forma, ao selecionar a uma pagina do Pagecontrol alimentaria uma variavel.

procedure TForm1.PageControl1Change(Sender: TObject);
var
v:integer;
begin
v:= pagecontrol1.TabIndex;
case v of
  0:label1.Caption:= 'Tabela 01;
  1:label1.Caption := 'Tabela 02;
  2:label1.Caption := 'Tabela 03;
  end;
end;

mas estar dando erro, na verdade não compila, alguém sabe onde estou errando?

Link to comment
Share on other sites

3 answers to this question

Recommended Posts

  • 0
Guest --Jonas --
Estou precisando aplicar o comando "Case " da seguinte forma, ao selecionar a uma pagina do Pagecontrol alimentaria uma variavel.

procedure TForm1.PageControl1Change(Sender: TObject);
var
v:integer;
begin
v:= pagecontrol1.TabIndex;
case v of
  0:label1.Caption:= 'Tabela 01;
  1:label1.Caption := 'Tabela 02;
  2:label1.Caption := 'Tabela 03;
  end;
end;
mas estar dando erro, na verdade não compila, alguém sabe onde estou errando?
Que tal tentar assim:
procedure TForm1.PageControl1Change(Sender: TObject);

   case PageControl1.ActivePageIndex of
       0:label1.Caption := 'Tabela 01;
       1:label1.Caption := 'Tabela 02;
       2:label1.Caption := 'Tabela 03;
   end;

end;

Link to comment
Share on other sites

  • 0

Se o texto a ser formado for assim tão padronizado, você pode usar apenas isso:

procedure TForm1.PageControl1Change(Sender: TObject);
begin
  label1.Caption:= 'Tabela ' +FormatFloat('00', pagecontrol1.TabIndex);
end;

Link to comment
Share on other sites

  • 0
Que tal tentar assim:

CODE

procedure TForm1.PageControl1Change(Sender: TObject);

case PageControl1.ActivePageIndex of

0:label1.Caption := 'Tabela 01;

1:label1.Caption := 'Tabela 02;

2:label1.Caption := 'Tabela 03;

end;

end;

Não funcionou, estar grifando
0:label1.Caption := 'Tabela 01;
se eu usar
case pagecontrol1.tabindex of
estar grifando da mesma forma, é preciso declarar alguma "Uses"?
Estou precisando aplicar o comando "Case " da seguinte forma, ao selecionar a uma pagina do Pagecontrol alimentaria uma variavel. CODE procedure TForm1.PageControl1Change(Sender: TObject); var v:integer; begin v:= pagecontrol1.TabIndex; case v of 0:label1.Caption:= 'Tabela 01; 1:label1.Caption := 'Tabela 02; 2:label1.Caption := 'Tabela 03; end; end; mas estar dando erro, na verdade não compila, alguém sabe onde estou errando?
Encontrei o Erro simplismente depois de
Tabela 01;
na fechei a string deixando aberta.
case v of
  0:label1.Caption:= 'Tabela 01';
  1:label1.Caption := 'Tabela 02';
  2:label1.Caption := 'Tabela 03';
  end;
end;

Valeu pela ajuda. :lol:

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share



  • Forum Statistics

    • Total Topics
      150.1k
    • Total Posts
      647.1k
×
×
  • Create New...