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..