TList的使用问题

Question

var
  PM: ^TForm;
  FormList： TList;
begin
  FormList := TList.create;  FormList.add(...);
  FormList.add(...);
  FormList.add(...);
  FormList.add(...);
  FormList.add(...);  ......  while FormList.Count <> 0 do
  begin
    Pm := FormList.Items[0];
    if Pm^.ClassName = 'TForm1' then //这句出错了， 请教是怎么回事， 要怎样解决呢？
      Pm^.Free
    else
      Pm^.Close;
  end;

Answer 1

TList是一個虛擬的容器，很多的方法都沒有實現的建議樓主還是改用TStringList吧

Answer 2

var
  PM: TForm;
  FormList： TList;
begin
  FormList := TList.create;  FormList.add(...);
  FormList.add(...);
  FormList.add(...);
  FormList.add(...);
  FormList.add(...);  ......  while FormList.Count <> 0 do
  begin
    Pm := FormList.Items[0];
    if Pm.ClassName = 'TForm1' then //这句出错了， 请教是怎么回事， 要怎样解决呢？
      Pm.Free
    else
      Pm.Close;
  end;