procedure TForm2.TabControl1Change(Sender: TObject);
var
temp:string;
begin
temp:=TabControl1.Tabs.Strings[TabControl1.TabIndex];
try
DirectoryOutline1.Drive:=temp[1]; //temp后加[1]是什么意思?
Except
on EInOutError do // on EInOutError do是什么意思?没有这句结果也一样。
ShowMessage(temp+'未准备好');
end;
end;
var
temp:string;
begin
temp:=TabControl1.Tabs.Strings[TabControl1.TabIndex];
try
DirectoryOutline1.Drive:=temp[1]; //temp后加[1]是什么意思?
Except
on EInOutError do // on EInOutError do是什么意思?没有这句结果也一样。
ShowMessage(temp+'未准备好');
end;
end;
解决方案 »
- 用SDK5.1如何识别中文发音?
- 病毒猖獗,如何防范
- 谁用过 KOL ? 进来谈谈:)
- 100分问,我想做一个和outlook写邮件类似的编辑器,可以插入图片和对文字操做的,问哪里有控件,或者怎么做
- 哪有TwordApplication,TWorddocument的帮助说明?急!高分送
- 客户端通过socketconnection1连接服务端RemoteDataModule,服务端很占cpu
- 请问Tsplitter怎么用??
- TreeView的一个小问题!
- 我在delphi5中的例子在delphi6中能够运行但再回到delphi5中时则不能使用。为什么呢?
- ActiveForm中如何调用另一个ActiveForm?
- 不需要在界面上显示数据,我应该把代码写在什么控件的什么事件中呢?
- 使用UDPClient控件是经常出现socket error # 10054 connection reset by peer错误
指你temp字符串里的第一个字符
on EInOutError do是什么意思?没有这句结果也一样。
指产生异常进行的处理
是异常处理。如果发生异常就执行Except后面的语句。on EInOutError do //表示如果异常为EInOutError则执行……temp[1] //temp是字符串类型 字符串实际上是字符数组,[n]为数组的下标,temp[1]表示temp中的第一个字符。
就执行你下面的ShowMessage(temp+'未准备好');