FileListBox1.FileType:= ???? nasıl tanımlanır.

[uğur alkan]

filelistbox içindeki dosyalardan sadece uzantısı 'U00' olanları görüntülemem gerekiyor.... filelistbox ta filetype nasıl tanımlanıyor...

[naile]

FileListBox seçili iken object inspectorde Mask'dan yapıyorsun. Mesela *.pas yaparsan pas dosyaları alınır.

[vedatkaba]

Filelistbox ın mask özelliği olması gerek ordan diye biliyoruım orda normal atama *.* olarak geçer oraya istediğin uzantıyı yazarsan o şekilde olur galiba ..

[uğur alkan]

teşekkür ederim mask işi gördü...

[kara_kule06]

Peki benim burada bi sorum olacak. Filelistbox da *.dat ve *.jpg dosyalarını görmek istiyorsak. Mask alanına nasıl bir şey yazmamız gerek.

[kadirkurtoglu]

*.dat|*.pas

[kara_kule06]

*.dat|*.pas

kardeş sen bunu denedinmi?
bende olmuyor da...

[kadirkurtoglu]

önce dosya bilgisi sonra filter

Kod: Tümünü seç

dat dosyaları |*.dat| jpeg dosyalar|*.jpg

şeklinde yaparsan olur...

[kara_kule06]

Kardeş senin dediğin Opendialog bileşeninde oluyor. filelistbox da olmuyor.
Rica etsem dener bana dönermisin? Hala yapamadım

[kadirkurtoglu]

aynı anda filtrelenmiyor ancak Filtercombobox kullanabilirsin...

[Ottoman]

Selam...DirectoryListBox1,FileListBox1 için,Hem Text Dosyaları hemde Resimler için Küçük bir Örnek;

Kod: Tümünü seç

procedure TForm1.FormCreate(Sender: TObject);
begin
 DriveComboBox1.DirList:=DirectoryListBox1;
 DirectoryListBox1.FileList:=FileListBox1;
 DirectoryListBox1.DirLabel:=Label3;
 FileListBox1.FileEdit:=Edit1;
 FilterComboBox1.FileList:=FileListBox1;
 DriveComboBox1.TextCase:=tcUpperCase;
 FileListBox1.ShowGlyphs:=False;
 FilterComboBox1.Filter:='Tüm Dosyalar (*.*)|*.*|Text Dosyaları|*.Txt|'+'Resim Dosyaları|*.bmp;*.wmf;*.ico;*.jpg;*.emf|';
 Memo1.ReadOnly:=True;
end;

Kod: Tümünü seç

procedure TForm1.FileListBox1Click(Sender: TObject);
var
 ext:String;
begin
 try
 ext:=UpperCase(ExtractFileExt(FileListBox1.FileName));
 if (Ext='.BMP') or (Ext='.WMF') or (Ext='.ICO') or (Ext='.JPG') or (Ext='.EMF') Then
   Image1.Picture.LoadFromFile(FileListBox1.FileName)
 Else
   Memo1.Lines.LoadFromFile(FileListBox1.FileName);
 except
 end;

[mrmarman]

Aşağıdaki şekilde denemediniz mi ? Çalışması lazım.

Kod: Tümünü seç

  FileListBox1.Mask      := '*.DAT;*.PAS';