istruzione using Caso con String

Question

dire che ho una stringa

'SomeName' 

e ha voluto i valori ritornano in una dichiarazione caso. Può essere fatto? Le stringhe possono essere utilizzati in una dichiarazione caso come in modo

Case 'SomeName' of 

    'bobby' : 2; 
    'tommy' :19; 
    'somename' :4000; 
else 
    showmessage('Error'); 
end; 

Answer 1

Il Delphi Case Statement supporta solo tipi ordinali. Quindi non puoi usare direttamente le stringhe.

ma esistono altre opzioni come

• costruire una funzione che restituisce un Integer (cancelletto) sulla base di una stringa
• utilizzando farmaci generici e metodi anonimi (A generic case for strings)
• usando una funzione che riceve una matrice di stringhe (Making a case for Strings, the sane way)
• e così via.

Answer 2

In biblioteca Jcl si ha la funzione di StrIndex StrIndex(Index, Array Of String) che funziona in questo modo:

Case StrIndex('SomeName', ['bobby', 'tommy', 'somename']) of 
    0: ..code.. ;//bobby 
    1: ..code..;//tommy 
    2: ..code..;//somename 
else 
    ShowMessage('error'); 
end. 

Answer 3

@ risposta di Daniel mi ha segnalato nella giusta direzione, ma mi c'è voluto un po 'per notare la "Jcl Biblioteca" parte e i commenti sulle versioni standard.

In [almeno] XE2 e in seguito, è possibile utilizzare:

Case IndexStr('somename', ['bobby', 'tommy', 'somename', 'george']) of 
    0: ..code..;     // bobby 
    1: ..code..;     // tommy 
    2: ..code..;     // somename 
-1: ShowMessage('Not Present'); // not present in array 
else 
    ShowMessage('Default Option'); // present, but not handled above 
end; 

Questa versione è case-sensitive, quindi se il primo argomento è stato 'SomeName' ci sarebbe voluto il percorso not present in array. Utilizzare IndexText per il confronto senza distinzione tra maiuscole e minuscole.

Per le versioni Delphi precedenti, utilizzare AnsiIndexStr o AnsiIndexText, rispettivamente.

Complimenti a @Daniel, @The_Fox e @afrazier per la maggior parte dei componenti di questa risposta.

Answer 4

Funziona su D7 e Delphi Seattle, usa system.Ansistring

case AnsiIndexStr(tipo, ['E','R']) of 0: result := 'yes'; 1: result := 'no'; end;