当前位置:编程问答 > Delphi >

delphi 打开文件对话框

问题:如果此次打开的是.txt文件,标志位置1 否则标志位为0 这个怎么实现,高手指点下!
答案:if OpenDialog.Execute then
begin
  if SameText( ".txt", ExtractFileExt( OpenDialog.FileName ) ) then
    标志位 := 1
  else
    标志位 := 0;
end;
或者
if OpenDialog.Execute then
  标志位 := Ord( SameText( ".txt", ExtractFileExt( OpenDialog.FileName ) ) );
其他:Delphi自定义组件如何在属性面板中实现打开文件的对话框?
土标供戒句芒西抱悦菠
 Delphi自定义组件如何在属性面板中实现打开文件的对话框?土标供戒句芒西抱悦菠 自己写的一个Delphi组件,属性面板中有文件名这一项,需要手动输入。 opendialog 控件
opendialog 的excute 和 filename 应该就能判断了 标志位置?什么意思?
判断打开的文件是否是txt:
if ExtractFileExt(FileName) = '.txt' then
  //do samething Delphi自定义组件如何在属性面板中实现打开文件的对话框?
土标供戒句芒西抱悦菠
 

上一个:请注意我没有一点的编程基础,现在想业余时间学下delphi,推荐下书籍
下一个:Delphi 生成Excel 图表怎么在2007下没问题,2003下有问题啊? ASCollection.Add(Arange1,False) 高手帮看看

CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,