小编use*_*626的帖子

无法在Delphi中设置TStringLists数组

Var
  i : Integer;
  j : Integer;
  oSLArray : array of TStringList;
  oSL : TStringList;
begin
  SetLength(oSLArray, emailPassword.Lines.Count);
  for i := 0 to emailPassword.Lines.Count - 1 do
    {oSLArray[i] := TStringList.Create;
    oSLArray[i].Delimiter := ' ';
    oSLArray[i].DelimitedText := emailPassword.Lines[i];
    for j := 0 to oSLArray[i].Count-1 do begin
      Showmessage( oSLArray[i].Strings[j] );
    end; }
    oSL := TStringList.Create;
    oSL.Delimiter := ' ';
    oSL.DelimitedText := emailPassword.Lines[i];
    for j := 0 to oSL.Count-1 do begin
      Showmessage( oSL[j] );
    end;
  end;
Run Code Online (Sandbox Code Playgroud)

我正在尝试创建一个TStringLists数组,读取来自RichEdit'EmailPassword'的内容,然后打印它(当我到达目的地时,我会把它放在一个数组中).

当我取消注释oSLarray时,我收到了访问冲突.当我用oSL尝试它时,没有任何打印.

现在,我理解访问冲突意味着指针可能没有正确设置,因为我认为访问冲突发生在oSLArray [i]:= TStringList.Create.

我只是错过了一些小事吗?

delphi

5
推荐指数
2
解决办法
3895
查看次数

标签 统计

delphi ×1