如何将丰富编辑中的多行（字符串）保存到字符串数组中？

Question

不知道行不行，因为我不能用“trace into”。当我尝试在清除后使用 for 循环在 TRichEdit 中显示数组值时，没有显示任何内容，它只是变成空白。

procedure TfrmEncryption.sedOffsetClick(Sender: TObject);
var
  K : integer;
begin
  for K := 1 to 26 do
  begin
    arrOffset[K] := redOutOffset.Lines.Strings[K];
  end;

  redOutOffset.Clear;

  for K := 1 to 26 do
  begin
    redOutOffset.Lines.Strings[K] := arrOffset[K];
  end;
end;

Answer 1

I don't know if it works or not, because I can't use "trace into".

确保在项目选项中启用了“使用调试 dcus”。然后您应该能够在运行时使用调试器进入 VCL 的源代码。

When I try to display the array values back in the TRichEdit using a for loop after clearing it, nothing gets displayed, it just turns blank.

在 Clear() RichEdit 之后，您无法再对其 Strings[] 进行索引，因为没有更多数据。您将不得不使用 Lines.Add() 而不是 Lines.Strings[K]，例如：

redOutOffset.Lines.BeginUpdate;
try
  redOutOffset.Clear;

  for K := 1 to 26 do
  begin
    redOutOffset.Lines.Add(arrOffset[K]);
  end;
finally
  redOutOffset.Lines.EndUpdate;
end;

如何将丰富编辑中的多行（字符串）保存到字符串数组中？

How to save multiple lines (strings) from a rich edit into an array of string?

delphi