求教tthread里面使用tstrings的问题，附有代码片段

2010-10-08 11:29:56 197 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

利用setEcoMode优化innovus中的ecoAddRepeater批量操作效率本文详细介绍了在Cadence Innovus工具中，如何利用setEcoMode命令的batchMode参数，显著提升ecoAddRepeater命令在批量插入buffer或inverter时的操作效率。通过合并重复的初始化和数据库更新开销，该模式可将大规模时序修复操作的执行速度提升数倍，并提供了完整的脚本示例与最佳实践，帮助后端设计工程师优化ECO流程。阅读详情





  TMyThread = class(TThread)

  private

    { Private declarations }



    FList: TStrings; 

  procedure GetAllData;



  protected

    procedure Execute; override;



  public

    constructor  Create(CreateSuspended: Boolean);

    destructor   Destroy; override;

  end;



implementation



constructor TMyThread.Create(CreateSuspended: Boolean);

begin

  inherited Create(CreateSuspended);

  FList:= TStringList.Create;

end;





destructor TMyThread.Destroy;

begin

  FList.Free;

  inherited;

end;



procedure TMyThread.Execute;

var

...



begin



	...



	GetAllData;// 后面的procedure



	...



end;







procedure TMyThread.GetAllData;

var

...

begin



.....



  if FBoxList.Count > 0 then

  	OutputDebugString( PChar(IntToStr(FBoxList.Count)) );

  ....

  	

  //*************** 到OutputDebugString这里  watch显示  Flist  依然可以访问 *************//

  OutputDebugString( PChar('GetAllData') ); 

  

  //执行了ReadProcessMemory后，FList就是Inaccessible value

  if not ReadProcessMemory(PHandle,Pointer(p),@Tmp1,32 ,ReadByte) then

  begin

    OutputDebugString('GetAllData --- ReadProcessMemory fail');

  end;

  if Tmp1 = 123 then

  begin

  	FList.add('123');   //*********************  access vioate 错误了 ********************//

  end



......		



end;