procedure TForm1.Button1Click(Sender: TObject);
var
Str:String;
begin
Str:='Frm2';
//在此判断是否存在类TFRM2的实例的名字为Str;
end;HELP!!
var
Str:String;
begin
Str:='Frm2';
//在此判断是否存在类TFRM2的实例的名字为Str;
end;HELP!!
解决方案 »
- Indy 客户端接受数据
- XML问题:TXMLDocument.Active自动变成False,操作还没结束,对象已自动销毁
- 关于Delphi基础的问题,高手帮帮忙
- delphi如何打开frf文件? 十万火急!!!在线等!!!
- 如何获得年,月,日
- 求 IntraWeb 的三个源码
- 如何查询?。。。。。。。(表和表之间的)
- idftp.list 无法获取 文件夹
- 有关字段计算的问题
- delphi里没静态局部变量?
- 关于 手机号段查询归属地 的问题
- 高分求救,中断一个正在执行的查询时遇到"operation cannot be performed while executing asynchronously"错误
procedure TForm1.BitBtn1Click(Sender: TObject);
var
Bit: TBitBtn;
S: string;
begin
Bit := TBitBtn.Create(Self); //这里要一致
S := 'BitBtn1';
try
Bit.Name := S;
except
on E: Exception do
begin
if Pos('A component named ' + S + ' already exists', E.Message) > 0 then
begin
ShowMessage('已经存在');
end; end;
end;
end;
Tmemo(findcomment('memo1)).lines.add('dd');
except
//已经存在
end;
try
Tmemo(findcomment('memo1)).lines.add('dd');
except
//不存在
end;
对象.free;
对象=nil;
Assigned(对象)配合释放必须为
FreeAndNil(对象);
Application.FindComponent('名字')=nil then //不存在(好像达不到预期效果啊)