Question

delphi 打开文件对话框

如果此次打开的是.txt文件，标志位置1
否则标志位为0 这个怎么实现，高手指点下！

Answer 1

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 ) ) );

Answer 2

标志位置？什么意思？
判断打开的文件是否是txt：
if ExtractFileExt(FileName) = '.txt' then
//do samething

Answer 3

opendialog 控件
opendialog 的excute 和 filename 应该就能判断了

Answer 4

Delphi自定义组件如何在属性面板中实现打开文件的对话框？
土标供戒句芒西抱悦菠

Answer 5

Delphi自定义组件如何在属性面板中实现打开文件的对话框？
土标供戒句芒西抱悦菠