Delphi – Memo Kullanımı İle Txt Dosyasına Kayıt Ekleme ve Silme

Merhaba arkadaşlar,

Sizlere delphide memo kullanımı ile txt dosyasına kayıt yapmayı ve o kayıdı görmeyi göstereceğim.Kısaca delphi ile basit bir not defteri örneği yapacağız.

Örneğimiz için delphi ile açmış olduğumuz formumuza 1 adet memo ve 2 adet buton ekliyoruz. Butonlarımızı notu kaydet ve notu göster şeklinde kullanacağız. Bu bileşenlerimizi ekledikten sonra bilgisayarımızda notlar.txt adlı bir not defteri oluştuyoruz. Oluşturmuş olduğumuz bu not defterini projemizin debug klasörünün içine kopyalıyoruz. Kopyalama işlemini debug klasörüne yapmamız çok önemli, eğer kopyalama işlemi debug klasörünün içine yapılmassa program çalışmayacaktır.

Şimdi örneğimizi yapmaya  başlayalım.

İlk olarak notu kaydet butonumuzun içine yani click olayına aşağıdaki kodları yazıyoruz.


procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.Lines.SaveToFile('notlar.txt');
end;

Bu kodumuz ile yazmış olduğumuz notları delphi üzerinden txt dosyamıza kaydetmeyi sağladık.

Kaydetme işlemini tamamladıktan sonra ise daha önce kaydetmiş olduğumuz notları görebilmek için notu göster butonumuzun içine yani click olayına aşağıdaki kodları yazıyoruz.


procedure TForm1.Button2Click(Sender: TObject);
begin
memo1.Lines.LoadFromFile('notlar.txt');
end;

Evet gerekli kodlarımızı butonlara yazdıktan sonra ekran çıktılarımız aşağıdaki gibi oluyor.

İlk notumuz olarak bu bir denemedir şeklinde bir cümleyi kaydediyorum.

Ve kaydetme işleminden sonra not defterini açtığımızda oraya kaydedildiğini de görüyoruz.

Programımızı yeniden başlattığımızda ise memo karşımıza içi boş şekilde geliyor.

Ve göster butonuna tıkladığımız da kaydetmiş olduğumuz notlar karşımıza geliyor.

 

Sosyal Medyada Paylaş Facebook Twitter Google+

Etiketler: , , , , , , , , , , , , ,
Eklenme Tarihi: 21 Şubat 2017

Konu hakkında yorumunuzu yazın


Delphi – Memo Kullanımı İle Txt Dosyasına Kayıt Ekleme ve Silme (1 Yorum)