Bitte die Liste NICHT durchlaufen!
Delphi-Quellcode:
var
slDict: TStringList;
s: string;
index: integer;
begin
s := 'quot';
slDict.AddObject(s, Pointer(34));
index := slDict.IndexOfName(s);
if index < 0
then CheckForCodedEntity(s)
else s := Chr(Integer(slDict.Objects[index]));
end;
marabu
PS: Du denkst bestimmt daran, dass du slDict.CaseSensitive auf true setzen musst, stimmts?