我不知道它是否有效，因為我不能使用“trace into”。當我嘗試在清除陣列后TRichEdit使用for回圈顯示陣列值時，沒有顯示任何內容，它只是變為空白。
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;
uj5u.com熱心網友回復：
我不知道它是否有效，因為我不能使用“trace into”。
確保在專案選項中啟用了“使用除錯 dcus”。然后您應該能夠在運行時使用除錯器進入 VCL 的源代碼。
當我嘗試在清除陣列后
TRichEdit使用for回圈顯示陣列值時，沒有顯示任何內容，它只是變為空白。
在您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;
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/315620.html
標籤：德尔福