arrays - EInvalidPointer异常，因为在数组中使用Unicode字符

Question

我正在尝试通过在Delphi XE8中使用Unicode字符来更改字符样式，
一切正常，除非我收到了紧密的应用程序
错误Exception EInvalidpointer这里的代码

procedure ChangeStyle(OriginalText, DecoratedText: TsMemo; DecoList: TsListBox);
var
  StyleChars, TempText: string;
  Len, I: Integer;
  TextArray, StyleArray: array of UnicodeString;
begin
  // Put Style chars in array
  StyleChars := DecoList.Items.Strings[DecoList.ItemIndex];
  SetLength(StyleArray, 23);
  for I := 1 to 23 do
    StyleArray[I] := Copy(StyleChars, I, 1);

  // Put originl text in array
  Len := OriginalText.GetTextLen;
  SetLength(TextArray, Len +1);
  for I := 1 to Len do
    TextArray[I] := Copy(OriginalText.Text, I, 1);

  // Set style to chars

  for I := 1 to Len do
  begin
    if (TextArray[I] = 'A') or (TextArray[I] = 'a') then
      TempText := TempText + StyleArray[1]
    else if (TextArray[I] = 'B') or (TextArray[I] = 'b') then
      TempText := TempText + StyleArray[2]
    else if (TextArray[I] = 'C') or (TextArray[I] = 'c') then
      TempText := TempText + StyleArray[3]
    else if (TextArray[I] = 'D') or (TextArray[I] = 'd') then
      TempText := TempText + StyleArray[4]
    else if (TextArray[I] = 'E') or (TextArray[I] = 'e') then
      TempText := TempText + StyleArray[5]
    else if (TextArray[I] = 'F') or (TextArray[I] = 'f') then
      TempText := TempText + StyleArray[6]
    else if (TextArray[I] = 'G') or (TextArray[I] = 'g') then
      TempText := TempText + StyleArray[7]
    else if (TextArray[I] = 'H') or (TextArray[I] = 'h') then
      TempText := TempText + StyleArray[8]
    else if (TextArray[I] = 'I') or (TextArray[I] = 'i') then
      TempText := TempText + StyleArray[9]
    else if (TextArray[I] = 'J') or (TextArray[I] = 'j') then
      TempText := TempText + StyleArray[10]
    else if (TextArray[I] = 'K') or (TextArray[I] = 'k') then
      TempText := TempText + StyleArray[11]
    else if (TextArray[I] = 'L') or (TextArray[I] = 'l') then
      TempText := TempText + StyleArray[12]
    else if (TextArray[I] = 'M') or (TextArray[I] = 'm') then
      TempText := TempText + StyleArray[13]
    else if (TextArray[I] = 'N') or (TextArray[I] = 'n') then
      TempText := TempText + StyleArray[14]
    else if (TextArray[I] = 'O') or (TextArray[I] = 'o') then
      TempText := TempText + StyleArray[15]
    else if (TextArray[I] = 'P') or (TextArray[I] = 'p') then
      TempText := TempText + StyleArray[16]
    else if (TextArray[I] = 'Q') or (TextArray[I] = 'q') then
      TempText := TempText + StyleArray[17]
    else if (TextArray[I] = 'R') or (TextArray[I] = 'r') then
       TempText := TempText + StyleArray[18]
    else if (TextArray[I] = 'S') or (TextArray[I] = 's') then
      TempText := TempText + StyleArray[19]
    else if (TextArray[I] = 'W') or (TextArray[I] = 'w') then
      TempText := TempText + StyleArray[20]
    else if (TextArray[I] = 'X') or (TextArray[I] = 'x') then
      TempText := TempText + StyleArray[21]
    else if (TextArray[I] = 'Y') or (TextArray[I] = 'y') then
      TempText := TempText + StyleArray[22]
    else if (TextArray[I] = 'Z') or (TextArray[I] = 'z') then
      TempText := TempText + StyleArray[23]
    else
      TempText := TempText + TextArray[I];

  end;
  DecoratedText.Text := TempText;
end;

我尝试了 TextArray := nil;和 StyleArray := nil，但是并没有解决。
还尝试了 TextArray, StyleArray: array of String;
当我使用 TStringList时，异常消失了，但它不支持Unicode
所以我认为这与 Arrays或 Unicode有关

Answer 1

SetLength(StyleArray, 23);
for I := 1 to 23 do
  StyleArray[I] := Copy(StyleChars, I, 1);

您在此处超出数组末尾编写。动态数组使用基于零的索引。因此，有效索引为0到22（含）。这说明了您遇到的运行时异常。

考虑到其他地方都基于索引的索引，您可能想分配一个额外的元素：

SetLength(StyleArray, 24);

并只需忽略索引为0的第一个元素。

但是，我怀疑大部分代码都可以删除，如下所述。

巨大的if语句可以用某种算术代替。请注意 ord('A') - ord('A') = 0， ord('B') - ord('A') = 1，依此类推。

这两个字符数组对我来说似乎毫无意义。您也可以直接在字符串中建立索引。我将通过删除这两个数组来重新编写代码。

我想我也避免使用串联来填充字符串。因为您提前知道了它的长度，所以一开始就分配它。直接分配给每个索引元素。

我不知道您为什么认为 TStringList不支持Unicode。是的