Filtro per TFileNameEdit

[bonmario]

Ciao a tutti,
ho un progetto che gira su Windows, in cui c'è un TFileNameEdit.
Quest'ultimo, viene usato dall'utente per selezionare il file da aprire, e volevo mettere un filtro, par fare in modo che quando usa il TFileNameEdit, veda solo i files che non hanno un'estensione.
Il problema, credo che derivi dal fatto che i files su cui lavora, si trovano sul disco "WSL" ... non la conosco bene, ma da quel che ho capito, è una sorta di distribuzione Linux, che gira sotto windows.

Se imposto il filtro con "*.", non mi fa vedere nessun file, se invece lo imposto con "*", l vedo tutti.
Avete idea di come devo impostare il filtr per vedere solo quelli senza estensione?

Grazie, Mario

[DragoRosso]

Non penso esista un modo. Forse mettendo un NULL nel filtro, ma che non si può fare perchè quel controllo incapsula (o dovrebbe incapsulare) il controllo generico di Windows tramite OLE.

Usando prevalentemente Windows, problemi non ce ne sono perchè esistono le estensioni e tutti le usano, ma in Linux effettivamente più di qualche volta mi sono trovato spiazzato perchè un sacco di file non hanno estensione e non si riescono a distinguere tra eseguibili o altro.

Mi dispiace.

[nomorelogic]

hai provato come filtro la stringa "*?"  ?

[bonmario]

hai provato come filtro la stringa "*?"  ?

Sì, ma non va bene, ma comunque mi hai risolto il problema 
Da quello che mi hanno detto, quei files, oltre a non avere estensione, hanno il nome di 8 caratteri al massimo, quindi ho risolto impostando questo filtro: '?;??;;?;??;;?;??'

Grazie, Mario

[nomorelogic]

penso di aver capito
ma dovresti mettere il filtro nel tag del codice altrimenti non ci si capisce nulla 

[bonmario]

Intendi questo ?

Codice Seleziona Espandi

procedure TForm1.FormCreate(Sender: TObject);
const CstMaskNoExt='?;??;???;????;?????;??????;???????;????????';
begin
  fneNomeFile.Filter:='File Doci (' + CstMaskNoExt + ')|' + CstMaskNoExt + '|Tutti i files (*.*)|*.*';
end;


[nomorelogic]

si grazie
se vedi nel tuo msg precedente, erano comparse le emoticon tra i "?"

[bonmario]

Ah, ok, grazie, non ci avevo fatto caso !