Dosya İşlemleri - 2

Bir önceki dosya işlemleri dersimizde Delphi 7'de yazdığımız bir program üzerinden, bilgisayarımızda bulunan bir dosyayı silmeyi anlatmaya çalışmıştık. Bu dersimizde de bilgisayarımızdaki bir dosyayı programımızda göstermeyi anlatmaya çalışacağız.

Bir önceki dosya işlemleri dersimizde Delphi 7'de yazdığımız bir program üzerinden, bilgisayarımızda bulunan bir dosyayı silmeyi anlatmaya çalışmıştık. Bu dersimizde de bilgisayarımızdaki bir dosyayı programımızda göstermeyi anlatmaya çalışacağız.

Bilgisayarımızda bulunan herhangi formatta bir dosyayı programımızda açmak için öncelikle program formumuza o formatla ilgili bir bileşen yerleştirmeliyiz. Örneğin en basit anlamda bir not defteri dosyasını (.txt), bir edit içerisinde bile açabilirsiniz. Bununla birlikte iş resim, video formatlarına geldiğinde formunuza yerleştirdiğiniz bileşenlerin değişmesi ve birkaç kod değişikliği gerekir. Örnek kodlamamız aşağıdaki gibidir ve bu kodlama ile txt dosyalarını form üzerine yerleştirdiğimiz bir Memo bileşeni içerisinde açıyoruz.

Örnek Kodumuz:


procedure TForm.Button1Click(Sender: TObject);

begin

ChDir('OpenDialog.Execute');

Memo1.Text=OpenDialog1.Selected.File;

end;



Formumuza bir adet OpenDialog, bir adet Memo ve bir adet de Button nesnesi ekliyoruz. Bu kodların çalışması için nesneleri bu şekilde eklemelisiniz. Eğer farklı nesnelerle aynı işlemi yapmak istiyorsanız kodları da farklı yazmanız gerekecektir.

Sorularınız için forum bölümünde vaktim, bilgim ve deneyimim yettiğince yardımcı olmaya çalışırım.

Saygılarımla, herkese başarılar..
  • Etiketler;
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

burda yazıldığı şekilde yapıldığında çalışmıyor istersen tekrar dene emeğine saygılıyız kolay gelsin
evet olmuyor bende denedim. lütfen bir daha bakarmısınız? birde inputbox içerisindeki bi dosya yolunu alıp oraya birşey kopyalamak mümkünmü? nasıl yapabiliriz?
paylaşım için teşekkürler
Paylaşımın için tşkler..ama olmadı

Yukarı Git