Delphi - C'è un modo migliore per ottenere abbreviazioni di stato dai nomi di stato

Question

const 
states : array [0..49,0..1] of string = 
(
('Alabama','AL'), 
('Montana','MT'), 
('Alaska','AK'), 
('Nebraska','NE'), 
('Arizona','AZ'), 
('Nevada','NV'), 
('Arkansas','AR'), 
('New Hampshire','NH'), 
('California','CA'), 
('New Jersey','NJ'), 
('Colorado','CO'), 
('New Mexico','NM'), 
('Connecticut','CT'), 
('New York','NY'), 
('Delaware','DE'), 
('North Carolina','NC'), 
('Florida','FL'), 
('North Dakota','ND'), 
('Georgia','GA'), 
('Ohio','OH'), 
('Hawaii','HI'), 
('Oklahoma','OK'), 
('Idaho','ID'), 
('Oregon','OR'), 
('Illinois','IL'), 
('Pennsylvania','PA'), 
('Indiana','IN'), 
('Rhode Island','RI'), 
('Iowa','IA'), 
('South Carolin','SC'), 
('Kansas','KS'), 
('South Dakota','SD'), 
('Kentucky','KY'), 
('Tennessee','TN'), 
('Louisiana','LA'), 
('Texas','TX'), 
('Maine','ME'), 
('Utah','UT'), 
('Maryland','MD'), 
('Vermont','VT'), 
('Massachusetts','MA'), 
('Virginia','VA'), 
('Michigan','MI'), 
('Washington','WA'), 
('Minnesota','MN'), 
('West Virginia','WV'), 
('Mississippi','MS'), 
('Wisconsin','WI'), 
('Missouri','MO'), 
('Wyoming','WY') 
); 
function getabb(state:string):string; 
var 
    I:integer; 
begin 
    for I := 0 to length(states) -1 do 
    if lowercase(state) = lowercase(states[I,0]) then 
    begin 
    result:= states[I,1]; 
    end; 
end; 
function getstate(state:string):string; 
var 
    I:integer; 
begin 
    for I := 0 to length(states) -1 do 
    if lowercase(state) = lowercase(states[I,1]) then 
    begin 
    result:= states[I,0]; 
    end; 
end; 
procedure TForm2.Button1Click(Sender: TObject); 
begin 
edit1.Text:=getabb(edit1.Text); 
end; 

procedure TForm2.Button2Click(Sender: TObject); 
begin 
edit1.Text:=getstate(edit1.Text); 
end; 

end. 

C'è un modo bette per fare questo?

Answer 1

Se si utilizza D2009 o D2010, utilizzare uno TDictionary<string, string> da Generics.Collections. Dichiara l'array di costanti come se fosse tu, quindi imposta il dizionario inserendo ogni coppia nel dizionario. Quindi usa la proprietà predefinita del dizionario per fare le tue ricerche.

Answer 2

Si noti che in minuscolo (a) = in minuscolo (b) è più lento di sameText (a, b).

Inoltre, è possibile accelerare ulteriormente la procedura memorizzando le stringhe nell'array solo in minuscolo, quindi nella routine di ricerca si inizia convertendo l'input in minuscolo. Quindi puoi usare la funzione ancora più veloce sameStr (a, b). Ma ovviamente, quando viene trovata una corrispondenza, è necessario formattarla capitalizzando le lettere iniziali. Questo approccio di accelerazione non è probabilmente molto importante per una lista così piccola di stringhe. Dopo tutto, non ci sono troppi stati negli Stati Uniti.

Inoltre, si dovrebbe dichiarare le funzioni usando argomenti const, cioè scrivere

function getabb(const state:string):string; 

invece di

function getabb(state:string):string; 

(a meno che non si desidera modificare lo stato nella routine).

Infine, è possibile rendere il codice più compatto e leggibile omettendo lo begin e end dei loop for.

Answer 3

Questo tipo di dati deve essere hardcoded?
Non sarebbe meglio usare qualcosa come un file XML o anche solo un CSV.

o il nome coppie di valori, cioè IA = Iowa
poi caricato in un TStringList per ottenere

States.Values['IA'] = 'Iowa'; 

Allora non vi resta che scrivere qualcosa per cercare i valori di lavorare all'indietro come

//***Untested*** 
//Use: NameOfValue(States, 'Iowa') = 'IA' 

function NameOfValue(const strings: TStrings; const Value: string): string; 
var 
    i : integer; 
    P: Integer; 
    S: string; 
begin 
    for i := 0 to strings.count - 1 do 
    begin 
    S := strings.ValueFromIndex[i]; 
    P := AnsiPos(strings.NameValueSeparator, S); 
    if (P <> 0) and (AnsiCompareText(Copy(S, 1, P - 1), Value) = 0) then 
    begin 
     Result := strings.Names[i]; 
     Exit; 
    end; 
    end; 
    Result := ''; 
end; 

Sono abbastanza sicuro che la sua causa non sia troppo sensibile

Answer 4

Vorrei che le vostre liste fossero ordinate. In questo modo è possibile utilizzare uno binary search per ridurre i tempi di ricerca. Tutto dipende dal numero di iterazioni che si stanno esercitando. Circa 50 articoli non sembrano molto, finché il tuo iterare sulla lista poche migliaia di volte cerca l'ultimo elemento nell'elenco.

Inoltre, dovresti SEMPRE liberarti dei tuoi loop non appena ottieni una partita se sai che il resto della lista non combacerà.

Gli array vanno bene e, a seconda di come si utilizzano i dati, potrebbe essere necessario aggiungere alcuni dei "territori" che hanno anche abbreviations (PR = PUERTO RICO, GU = GUAM, ecc.).