case string of --gt; Ordinal type requiered

Question

no comando case of, quando eu coloco uma string...por exemplo...

var texto: string;

case texto of
�abc�:......
�def�:......
....
....
end;

da� d� o erro �ordinal type requiered�......

q � isso?

Tnaires · Answer

Ol� dammitResumindo: vc n�o pode usar case no delphi usando strings.Tradu��o do help:�... onde [i:d6d21ee0be]selectorExpression[/i:d6d21ee0be] � qualquer express�o do tipo Ordinal (tipos string s�o inv�lidos)...�T� +...

Beppe · Answer

Voc� pode usar if�s encadeados, ou colocar numa stringlist e chamar IndexOf ou Find....

Cebikyn · Answer

[b:d56436a685]How to use Strings in a Case Statement[/b:d56436a685] - em Ingl�s://www.swissdelphicenter.ch/en/showcode.php?id=1028...

Bacalhau · Answer

Depois dessa do Cebikyn fico sem palavras. Tem horas que eu fico pensando: �N�o percebo mesmo nada disto...� Aquele artigo � 5 estrelas...

Beppe · Answer

[quote:4c1c117ed7=�cebikyn�][b:4c1c117ed7]How to use Strings in a Case Statement[/b:4c1c117ed7] - em Ingl�s://www.swissdelphicenter.ch/en/showcode.php?id=1028[/quote:4c1c117ed7]O inconveniente � que as strings n�o poder�o conter caracterers acentuados, espa�os, etc......

::d::a::m::m::i::t:: · Answer

valew galera.....  :lol:...

Adilsond · Answer

The Unofficial Newsletter of Delphi Users - http://www.undu.com

And Yet Another Example of Case with Strings

By Henrik P. Hansen - hphansen@agora.dk

My solution is the function TokenNumber...

function TokenNumber(Source : string; const Delimeter, Token : string) : integer;

Here is an example of use...

           {s = ?} 
           case TokenNumber(�CASE;ON;STRINGS;POSSIBLE;SOLUTION�, �;�, s) of 
             1 : ShowMessage(�s = ��CASE���); 
             2 : ShowMessage(�s = ��ON���); 
             3 : ShowMessage(�s = ��STRINGS���); 
             4 : ShowMessage(�s = ��POSSIBLE���); 
             5 : ShowMessage(�s = ��SOLUTION���); 
             else 
               ShowMessage(�s = unknown value�); 
           end;

Here comes the source for function TokenNumber...

function TokenNumber(Source : string; const Delimeter, Token : string) : integer; 
var 
  i : integer; 
begin 
  Result := 1; 
  while Result > 0 do {traverse through token�s in Source} 
  begin 
    i := Pos(Delimeter, Source); 
    if ((i > 0) and (Token = Copy(Source, 1, i - 1))) or 
       ((i = 0) and (Token = Source)) then               {if match then      } 
      Break;                                             {  mission complete } 

    if i > 0 then                                  {if more tokens then      } 
      Delete(Source, 1, i + Length(Delimeter) - 1) {  cut �no match� token   } 
    else                                           {else                     } 
      Result := -1;                                {  mission complete       } 

    Inc(Result); 
  end; 
end;

Beppe · Answer

Mas por performance, usem uma stringlist, ou uma tabela de hash....

F�rum case string of --gt; Ordinal type requiered #210463