Formumuza Standart sekmesinden:
1 tane Tlabel ve 2 Tbutton ekleyelim.
Dialogs sekmesindende > Topendialog ekleyelim.
1. butonun
onClick olayına:
if opendialog1.execute then // open dialog çalıştırılınca
label1.caption := opendialog.filename; // label ın caption özelliğine seçilen dosyanın yolunu yazdır...
// Dosya yolunu uzun olarak aldık..
2. butonun
onClik olayına da aşağıdaki kodu yazıyoruz:
Label1.Caption := ExtractFileName(Label1.Caption);
extractFilename function (fonksiyonu) sayesinde dosya adını çıkarttık.
