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) 高手帮看看