怎样以一个模板form动态生成多个新form

Question

我有一个模板Tform1我现在想达到以下目地;
我有一个整数n ,当n有多大，就要生成多少个以Tform1为模板的form
假如n := 10 var tt:String ;
    t :Integer ;while t := 1 to n do 
begin
   tt := 'form' + strtoint(t) ;
   application.CreateForm(Tform,tt);
   tt.show
end 
这样写是错的，怎样写才对呢?　

Answer 1

var tt:String ;
    t :Integer ;
    F:TForm1;
while t := 1 to n do 
begin
   tt := 'form' + strtoint(t) ;
   application.CreateForm(Tform,F);
   F.name:=tt;
   tt.show
end 
试试看