Listbox Items C:\WINDOWS\Fonts

[haydarxxx]

Listbox Items ine C:\WINDOWS\Fonts klöründeki kayıtlı olan tüm font dosyalarının isimlerini Listbox ın Items inde göstermek istiyorum bunu nasıl gerçekleştirebiliriz.

[oyle]

Kod: Tümünü seç

var
  j : integer;
begin
  for j := 0 to Screen.Fonts.Count-1 do
    listbox1.Items.Add(Screen.Fonts.Strings[j]) ;
end;

[haydarxxx]

çok teşekkürler oyle

[sabanakman]

Yukarıdaki mantığa göre

Kod: Tümünü seç

listbox1.Items:=Screen.Fonts;

yazılsa daha pratik olur galiba.

[mcihad]

Kod: Tümünü seç

ListBox1.Items.Assign(Screen.Fonts);

[nitro]

suipack bileşenlerinde suiFontcombobox var, sizi hiç yormadan fontları gösterir.
kolay gelsin

[fduman]

Kod: Tümünü seç

ListBox1.Items.Assign(Screen.Fonts);

Yukarıdaki mantığa göre

Kod: Tümünü seç

listbox1.Items:=Screen.Fonts;

yazılsa daha pratik olur galiba.

Bu kod da içeride aynı şeyi yapıyor. Kendisine atananı assign ediyor.

[Opt2000]

Selam,

@fduman'ın dediğine göre

Kod: Tümünü seç

ListBox1.Items.Assign(Screen.Fonts);

ile

Kod: Tümünü seç

listbox1.Items:=Screen.Fonts;

arasında fark yok. Dediği doğru olabilir, ama bu her zaman geçerli olmayabilir. Çünkü ilk kodda Screen.Fonts'un içeriği kopyalanıyor (Assign komutunun yaptığı iş), ama ikincisinde pointer eşitleme var. Yani tehlikeli bir eşitleme! Çünkü nesnelerden birisi silindiği zaman, diğeri yanlış bir adres gösterecek ve bu da proje içinde yakalaması zor bir hata olacaktır. Siz dikkat etseniz bile, sizden sonra projeye devam edecek programcı için izlemesi ve farkedilmesi çok zor olacaktır.

Kolay gelsin,
Bahadır Alkaç

[fduman]

Yanlış anlaşıldım. VCL i açıp bakarsanız property setter'ında zaten Assign edildiğini göreceksiniz demek istemiştim. Pointer eşitlemesi yapmıyor yani.

[Opt2000]

@fduman:

Haklısınız, property Setter da Assign işlemi yapıyor. Bu VCL'in iyi düşünülerek yazıldığına güzel bir örnek aslında.

Yine de yukarıdaki uyarımı tekrarlamakta fayda görüyorum, çünkü = ile Assign arasındaki fark, çok ciddi hataların çıkmasına sebep olabilir.

Kolay gelsin,
Bahadır Alkaç

[fduman]

O konuda haklısın tabii ki.