delphi中文件以及线程操作基础

    这周写的最后的就是delphi了，简直没把我坑死。想找个对列容器，上网查老半天，费老鼻子劲了。
想往TObjectList中添加对象，怎么改怎么报错，最好只好在Tlist中添加指针，然后强制转换。怎么
往TObjectlist中添加数据我现在还没解决，所以这不是重点。
    今天的主要说说Delphi中的线程和写文件。直接来点实的：
    1、TObjectList的单元在Contnrs；
    2、线程定义：
    TSimulatorThread = class(TThread)
    private
      myClass: class;
    protected
      procedure Execute; override;
    public
      constructor Create(myClass :class);

    线程实现：
    procedure TSimulatorThread.Execute;
    begin
      while not Terminated do
      begin
        Sleep(1000);
        dosomething;
        end;
      end;
    线程调用：
    MySimulatorThread := TSimulatorThread.Create(True);
    MySimulatorThread.Resume;//开启线程
    MySimulatorThread.Suspend;//线程挂起
    MySimulatorThread.Destroy;//线程销毁

    3、文件写
    FlogFile:TextFile
    AssignFile(FLogFile,FLogFileName);
    if not fileExists(FLogFileName) then
      ReWrite(FLogFile);//重写文件
    else
      Append(FLogFile);//文件末尾添加
    之后就可以往文件中写东西了。
    如：Writeln(FLogFile,sMsg);//sMsg即为要写的内容

    4、delphi中很容易就使用了全局变量。在implementation之上定义的全是全局变量，这点要牢记，很方便。


至此，打完收工。