Delphi - Có cách nào tốt hơn để lấy từ viết tắt của tiểu bang từ tên tiểu bang

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ó cách nào để làm điều này không?

Answer 1

Nếu bạn đang sử dụng D2009 hoặc D2010, hãy sử dụng TDictionary<string, string> từ Generics.Collections. Khai báo mảng các hằng số như bạn có, sau đó thiết lập từ điển của bạn bằng cách đặt từng cặp vào từ điển. Sau đó, chỉ cần sử dụng thuộc tính mặc định của từ điển để thực hiện tra cứu của bạn.

Answer 2

Lưu ý rằng chữ thường (a) = chữ thường (b) chậm hơn so với cùng một văn bản (a, b).

Ngoài ra, bạn có thể tăng tốc quy trình thêm bằng cách lưu trữ các chuỗi trong mảng dưới dạng chữ thường, và sau đó bắt đầu thường xuyên tìm kiếm bằng cách chuyển đổi đầu vào thành chữ thường. Sau đó, bạn có thể sử dụng hàm thậm chí nhanh hơn sameStr (a, b). Nhưng tất nhiên, khi một trận đấu được tìm thấy, bạn cần phải định dạng nó bằng cách viết hoa các chữ cái đầu tiên. Cách tiếp cận tăng tốc này có lẽ không quan trọng đối với một danh sách nhỏ các chuỗi. Xét cho cùng, không có quá nhiều tiểu bang ở Mỹ.

Ngoài ra, bạn nên khai báo các chức năng sử dụng đối số const, ví dụ: viết

function getabb(const state:string):string; 

thay vì

function getabb(state:string):string; 

(trừ khi bạn muốn thay đổi trạng thái trong các thói quen).

Cuối cùng, bạn có thể làm cho mã nhỏ gọn hơn và dễ đọc hơn bằng cách bỏ qua các số begin và end của vòng for.

Answer 3

Loại dữ liệu này có được mã hóa cứng không?
Sẽ không tốt hơn nếu bạn sử dụng một thứ gì đó như tệp XML hoặc thậm chí chỉ là CSV.

Hoặc Tên Value Pairs, tức là IA = Iowa
sau đó nạp vào một TStringList để có được

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

Sau đó, bạn chỉ cần phải viết một cái gì đó để tìm kiếm các giá trị để làm việc ngược như

//***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; 

Tôi khá chắc chắn trường hợp của nó không nhạy cảm quá

Answer 4

Tôi sẽ sắp xếp danh sách của bạn. Bằng cách đó, bạn có thể sử dụng binary search để giảm thời gian tra cứu xuống. Tất cả phụ thuộc vào số lần lặp mà bạn sẽ thực hiện. Khoảng 50 mặt hàng không có vẻ như nhiều, cho đến khi bạn lặp lại trong danh sách một vài nghìn lần tìm kiếm mục cuối cùng trong danh sách.

Ngoài ra, bạn nên luôn luôn nhận bảo lãnh từ các vòng của bạn ngay sau khi bạn nhận được một trận đấu nếu bạn biết phần còn lại của danh sách sẽ không phù hợp.

Mảng là tốt và tùy thuộc vào cách bạn sử dụng dữ liệu, bạn có thể cần phải thêm một số "lãnh thổ" cũng có abbreviations (PR = PUERTO RICO, GU = GUAM, v.v.).