德尔福的TStringList查找方法无法找到项目

Question

我写我自己的类来管理Android/iOS应用程序的翻译和我产生了这个代码。我将解释下面的代码，但它非常简单和简短。

unit Localization; 

interface 

uses 
System.Classes, System.SysUtils, Generics.Collections, Vcl.Dialogs; 

//this class represents a single language (Italian, French, German...) 
type 
TLanguage = class 
    private 
    FTranslationList: TDictionary<string, string>; 
    function localize(const aWordId: string): string; 
    public 
    constructor Create; 
    destructor Destroy; override; 
    //methods 
    procedure addWord(const aIndex, aWord: string); 
    procedure removeWord(const aIndex: string); 
end; 

//this is a "container", it gathers all the languages in one place 
type 
TLocalization = class 
    private 
    FLanguagesList: TObjectList<TLanguage>; 
    FLocaleList: TStringList; 
    function getLang(Index: string): TLanguage; 
    public 
    constructor Create; 
    destructor Destroy; override; 
    //methods 
    function localize(const aLocaleId: string; const aIndex: string): string; 
    procedure addLanguage(const localeId: string); 
    //property to manage the languages 
    property Locale[Index: string]: TLanguage read getLang; 
    property langCount: integer read getCount; 
end; 

implementation 

{ TLocalization } 

{ add a new language to the class. } 
{the localeId is a symbol like 'it' that represents the Italian language} 
procedure TLocalization.addLanguage(const localeId: string); 
begin 
//add the language to the languages container 
FLanguagesList.Add(TLanguage.Create); 
//add the representation of the language. 
FLocaleList.Add(localeId); 
end; 

constructor TLocalization.Create; 
begin 
FLanguagesList := TObjectList<TLanguage>.Create; 
FLocaleList := TStringList.Create; 
end; 

destructor TLocalization.Destroy; 
begin 
FLanguagesList.Free; 
FLocaleList.Free; 
inherited; 
end; 

//ERROR HERE 
function TLocalization.getLang(Index: string): TLanguage; 
var i: integer; 
begin 

{ I search the locale id (for example 'it') if it's in the list. } 
{ if it's in the list, I return the respective TLanguage object} 
if not(FLocaleList.Find(Index, i)) then 
    Result := FLanguagesList.Items[i] 
else 
    raise Exception.Create('Locale not found'); 

end; 

function TLocalization.localize(const aLocaleId, aIndex: string): string; 
var k: integer; 
begin 

k := 0; 

if not(FLocaleList.Find(aLocaleId, k)) then 
    raise Exception.Create('Locale not found.'); 

//ho trovato il locale, adesso basta cercare la parola 
Result := FLanguagesList.Items[k].localize(aIndex); 

end; 

{ TLanguage } 

procedure TLanguage.addWord(const aIndex, aWord: string); 
begin 
FTranslationList.Add(aIndex, aWord); 
end; 

constructor TLanguage.Create; 
begin 
FTranslationList := TDictionary<string, string>.Create; 
end; 

destructor TLanguage.Destroy; 
begin 
FTranslationList.Free; 
inherited; 
end; 

function TLanguage.localize(const aWordId: string): string; 
begin 

try 
    Result := FTranslationList.Items[aWordId]; 
except 
    Result := 'Not found.'; 
end; 

end; 

procedure TLanguage.removeWord(const aIndex: string); 
begin 
FTranslationList.Remove(aIndex); 
end; 

end. 

以上被用作代码如下：

var a: TLocalization; 
begin 
    a := TLocalization.Create; 

    a.addLanguage('it'); 
    a.addLanguage('cse'); 
    a.Locale['it'].addWord('test', 'Ciao mondo!'); 
    a.Locale['cse'].addWord('test', 'fadfa ea!'); 

    ButtonSomething.Text := a.localize('it', test); 

end; 

的TLocalization类完成所有工作。正如你所看到的，我创建了变量a，然后我添加一个语言到这个类（这是使用字典/字符串列表在内部管理的）。

我可以使用Locale[Index: string]属性访问我已添加的语言，该属性返回一个TLanguage，该类用于指示单个lang。在本地化方法的最后，我得到了我的翻译。

---

奇怪的是，我总是得到错误'Locale not found'。任何想法？使用我发现这个调试器：

的FLocaleList有项目，但我已经测试了这一点，我想我做错了什么上线71（在这里我使用查找功能）。我是否错过了索引？

Answer 1

你的代码逻辑是倒退。 Find()如果找到匹配则返回True，否则返回False。如果Find()返回False，则正在访问Items[]，如果返回True则引发异常。您需要删除not在if声明：

function TLocalization.getLang(Index: string): TLanguage; 
var 
    i: integer; 
begin 
    { I search the locale id (for example 'it') if it's in the list. } 
    { if it's in the list, I return the respective TLanguage object} 
    if FLocaleList.Find(Index, i) then // <-- HERE 
    Result := FLanguagesList.Items[i] 
    else 
    raise Exception.Create('Locale not found'); 
end; 

但是，更重要的是，Find() documentation说：

注：仅使用Find与有序列表。对于未排序的列表，请使用IndexOf方法。

您的列表未排序，因为Sorted属性默认为false。因此，使用IndexOf()代替：

function TLocalization.getLang(Index: string): TLanguage; 
var 
    i: integer; 
begin 
    { I search the locale id (for example 'it') if it's in the list. } 
    { if it's in the list, I return the respective TLanguage object} 
    i := FLocaleList.IndexOf(Index); 
    if i <> -1 then 
    Result := FLanguagesList.Items[i] 
    else 
    raise Exception.Create('Locale not found'); 
end;