[resolvido] Usando Comando "case X Of"

[Pirambu!]

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?

[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;

[Micheus]

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;

[Pirambu!]

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: