Wie kann ich in einer Delphi-TStringList schneller nach Name / Wert-Paaren suchen?
Ich habe die Sprachübersetzung in einer Anwendung implementiert, indem ich alle Zeichenfolgen zur Laufzeit in eine TStringList gestellt habe mit:
procedure PopulateStringList;
begin
EnglishStringList.Append('CAN_T_FIND_FILE=It is not possible to find the file');
EnglishStringList.Append('DUMMY=Just a dummy record');
// total of 2000 record appended in the same way
EnglishStringList.Sorted := True; // Updated comment: this is USELESS!
end;
Dann erhalte ich die Übersetzung mit:
function GetTranslation(ResStr:String):String;
var
iIndex : Integer;
begin
iIndex := -1;
iIndex := EnglishStringList.IndexOfName(ResStr);
if iIndex >= 0 then
Result := EnglishStringList.ValueFromIndex[iIndex] else
Result := ResStr + ' (Translation N/A)';
end;
Bei diesem Ansatz dauert es ungefähr 30 Mikrosekunden, um einen Datensatz zu finden. Gibt es einen besseren Weg, um dasselbe Ergebnis zu erzielen?
UPDATE: Zum späteren Nachschlagen schreibe ich hier die neue Implementierung, die TDictionary wie vorgeschlagen verwendet (funktioniert mit Delphi 2009 und neuer).:
procedure PopulateStringList;
begin
EnglishDictionary := TDictionary<String, String>.Create;
EnglishDictionary.Add('CAN_T_FIND_FILE','It is not possible to find the file');
EnglishDictionary.Add('DUMMY','Just a dummy record');
// total of 2000 record appended in the same way
end;
function GetTranslation(ResStr:String):String;
var
ValueFound: Boolean;
begin
ValueFound:= EnglishDictionary.TryGetValue(ResStr, Result);
if not ValueFound then Result := Result + '(Trans N/A)';
end;
Die neue GetTranslation-Funktion ist 1000-mal schneller (in meinen 2000-Beispieldatensätzen) als die erste Version.