Problema De 'case' - Me Ajudem

[bitoinfo]

e ai galera por favor de uma olhada no codigo abaixo esta dando um erro no 'OF'

o erro é o seguinte: [Error] Unit1.pas(48): Ordinal type required

me ajudem por favor!!!!!!!!!!!!

estou desesperado!!!!!!!!

procedure TForm1.Button1Click(Sender: TObject);

var i: integer;

var v:string;

begin

case combodia.text of

segunda : i:=0;

terça : i:=4;

end;

end;

[MartinsBios]

e ai galera por favor de uma olhada no codigo abaixo esta dando um erro no 'OF'

o erro é o seguinte: [Error] Unit1.pas(48): Ordinal type required

me ajudem por favor!!!!!!!!!!!!

estou desesperado!!!!!!!!

procedure TForm1.Button1Click(Sender: TObject);

var i: integer;

var v:string;

begin

case combodia.text of

segunda : i:=0;

terça : i:=4;

end;

end;

Olha só, do jeito q você está usando o case of, acho q não vai dar certo, pelo q eu sei não se pode trabalhar com string, ele trabalha com variáveis do tipo: integer, byte, Word, por isso acho melhor você rever sua rotina.

qualquer coisa, estamos aqui!

[Progr'amador]

Olá bitoinfo,

porque você não usa o IF.

tipo:

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
     v:string;
begin

  if combodia.text = 'segunda' then i := 0;
  if combodia.text = 'terça' then i := 4;

end;

Abs. Progr'amador.