在Delphi里实现[int map string]对

在Delphi里实现[int map string]对Type    TIntToStrArray = Array[0..65535] Of PChar;//有序范例不克不及设为Integer，[Error] :Data type too large: exceeds 2 GB//也不克不及设太年夜，会占很年夜内存//在要领里声明最好小些，全局里可以年夜些 Var    aIntToStrArray: TIntToStrArray;Begin  aIntToStrArray[1]:='a[1]';End;{===========================================}一般应用在字符串的替换上，提高效率，以空间换时间。Type   TSynReplaceCharsArray = Array[char] Of PChar;   VarfReplaceReserved: TSynReplaceCharsArray;Procedure  TForm1.FormCreate(Sender: TObject);Begin   fReplaceReserved[#153] := '™';   fReplaceReserved[#224] := 'À';   fReplaceReserved[#225] := 'Á';End;{===========================================}Type   TSynReplaceCharsArray = Array[Widechar] Of PChar;   VarfReplaceReserved: TSynReplaceCharsArray;Procedure  TForm1.FormCreate(Sender: TObject);Begin   fReplaceReserved[Widechar(153)] := '™';   fReplaceReserved[Widechar(224)] := 'À';   fReplaceReserved[Widechar(225)] := 'Á';End;{===========================================}