摘要:
Var TempForm: array of TForm2;procedure TForm1.Button2Click(Sender: TObject);Var i:Integer; bNew:Boolean;begin bNew:=True; For i:=Low(TempForm) to High(TempForm) do begin IF TempForm[i].Caption=Trim(Edit1.Text) then begin TempForm[i].Show; bNew:=False...
阅读全文