OpenDialog Filter

[Balf]

Hello, I am trying to only list .dbf files in the open file dialogue window but I see all file types.  Can anyone tell me what I am doing wrong? Thanks.
   var
    MyDataFile : string ;
begin
     if OpenDialog1.Execute then
   begin
     OpenDialog1.Filter := '*.dbf' ;
     MyDataFile := OpenDialog1.FileName ;
   end.
end

[Mando]

Hello:

You must set filter before call execute method of the dialog.

Code: [Select]

var
    MyDataFile : string ;
begin
   OpenDialog1.Filter := 'DBase Table|*.dbf' ;
   if OpenDialog1.Execute then
         MyDataFile := OpenDialog1.FileName ;
 
end


... or set it in edit-time in the object inspector.


regards.

[Balf]

Thanks for that - it almost works!  Is it possible to have a filter expression the way I had it i.e. '*.dbf' as apposed to 'DBase Table|*.dbf' because:

 OpenDialog1.Filter := '*.dbf' ;
   if OpenDialog1.Execute then
         MyDataFile := OpenDialog1.FileName ;

doesn't work and my level 7 dbase tables aren't listed when I use
 'DBase Table|*.dbf'

[Mando]

¿What is the extension for dbase tables level 7?

[Balf]

.dbf

[Balf]

It wasn't the table type it was the case of the extension ie it lists all *.dbf but not *.DBF 
Is there a way to make it list both? Thanks, Peter

[Blaazen]

Some Delphi solution: http://www.delphipages.com/forum/showthread.php?t=193852

Maybe you should try:

Code: [Select]

OpenDialog1.Filter := '*.dbf; *.DBF';
You are on Windows? Then it case-sensitivity is IMO bug.

[Balf]

Thanks.

OpenDialog1.Filter := '*.dbf; *.DBF';
selected all file types

but
 
OpenDialog1.Filter := 'All Files|*.dbf;*.DBF;'
worked

I'm on Ubuntu 10 by the way