Delphi Listbox uygulaması yapmak

Her yerde sık sık gördüğümüz ListBox nesnesini genel özellikleriyle bu derste inceleyeceğiz.

ListBox Nedir?

Alt alta satırların girilebildiği, birçok özelliği bulunan bir kontroldür. Bu kontrolü formumuza component palette bulunan system sekmesinden ekleyebiliriz.

ListBox'ın Genel Özellikleri

Listbox1.Items : Listbox nesnesiyle ilgili tüm işlemlerin yapabildiğimiz en temel özelliğidir.

ListBox1.Items.Add: Listbox'a satır eklemek için kullanılır. Eklenen satır string türünde olmalıdır.

Kod:

procedure TForm1.Button1Click(Sender: TObject);

begin

listbox1.Items.add(Edit1.text);

end;

ListBox1.Items.Clear: Listbox'da ki tüm satırları silmek için kullanılır.

Kod:

procedure TForm1.Button2Click(Sender: TObject);

begin

listbox1.Items.delete;

end;

Listbox.Items.Count: Listbox içerisinde bulunan satırların sayısını verir. Aşağıdaki kod bloğu derlendiğinde listbox da bulunan satır sayısını hesaplayıp mesaj olarak verecektir.

Kod:

procedure TForm1.Button1Click(Sender: TObject);

var

sayi:Integer;

begin

sayi:= ListBox1.Items.Count;//kaç satır var

Showmessage("Listbox da " + sayi + "satır var. ");

end;

ListBox1.Items.Delete: İstenilen satırı silmek için kullanılır. Öreneğin 3. Satırı silmek için listbox1.items.delete(2) kodu yazılır. 2 yazmamızın sebebi ise ilk satır numarasının �0� olmasıdır.

Kod:

procedure TForm1.Button6Click(Sender: TObject);

begin

ListBox1.Items.Delete(2);//3. satırı sil

end;

ListBox1.Items.LoadFromFile: Parametre ile belirtilen adresteki dosyanın içeriğini listeye kopyalayan methoddur.

Kod:

procedure TForm2.Button2Click(Sender: TObject);

begin

ListBox1.Items.LoadFromFile('c:\egitim.txt');

end;

ListBox1.Items.SaveToFile: ListBox'ın içeriğini parametre ile belirtilen adrese kopyalayan methoddur.

Kod:


procedure TForm2.Button2Click(Sender: TObject);

begin

ListBox1.Items.SaveToFile('c:\egitim.txt');

end;