读取delphi的.dfm文件，生成对应.pas的对象列表

procedure TFmInDBEdit.toprocobject(var file1:String;var TS1:TStrings);
var
cout,I:Integer;
TS2:TStrings;
temps,S1:string;

begin

TS2:=TStringList.Create;
TS2.LoadFromFile(file1);
TS1.Clear;
try
 //cout:=Pos('object',TS2[0]);//如果是TForm的子类，将其换成TForm类
// if cout=1 then
 begin
//  i:=pos(':',TS[0]);
//  temps:=Copy(TS[0],i+1,length(TS[0])-i);

// showmessage(temps);
for I := 1 to TS2.Count-1 do
begin
temps:=trim(TS2[i]);
cout:=Pos(‘object’,temps);
if cout=1 then
begin
S1:=copy(temps,7,length(temps)-6);
TS1.Add(S1+‘;’);
end;
end;
end;

finally

  TS2.Free;
end;

end;