Merhaba arkadaşlar,
Geçmişte yazmış olduğum programlardan birini tanıtayım size, bu programda her hangi bir veritabanı sistemine ihtiyaç duymadan uzun uzun veri tabanına bağlanmak için kod yazmadan ufak bir dosyalama sistemini yapmaya çalıştım..
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Listbox1.Items.Add (Edit1.Text+' '+Edit2.Text+' '+Edit3.Text+' '+ComboBox1.Text);
end;
Yukarıdaki koddan da anlaşıldığı üzere BitBtn1 ‘in Click olayında Edit1 , Edit2 , Edit3 ve ComboBox ‘a girilen yazıları satır satır Listbox ‘a aktarıyoruz..
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
ListBox1.Items.Delete(ListBox1.ItemIndex);
end;
Yukarıdaki kodda ise Temizle Butonunun bağlı olduğu buton’un kodu mevcut. Bu kodda Listbox ’a aktarılan verilerin hepsini temizlemek içindir.
procedure TForm1.BitBtn3Click(Sender: TObject);
begin
ListBox1.Items.SaveToFile('maas.dat');
end;
ve asıl işlemi yaptığımız yere yani KAYDET butonunun Click olayına geldik çoğu arkadaşım hala bunu anlamamakta diretiyor oysa kodda her şey açık açık yazıyor. Diyor ki ;
ListBox1 ‘in içinde ne görüyorsan hepsini “ maas.dat “ dosyasının içine kaydet. İşte bu kadar.
Kaynak Kodunu Aşağıdaki Linkten İndirebilirisiniz..
Hiç yorum yok:
Yorum Gönder