Merhabalar, bugün sizlere Delphi'de TOpenDialog özelliklerinden bahsedeceğim.
Başlamadan önce: Aşağıdaki kodları OpenDialog nesnemizi execute ettikten sonra yazıyoruz,
Örnek:
procedure TForm4.Button2Click(Sender: TObject);
var
dosyaYolu: String; //kodlar string değer döndürdüğü için değişkenimiz string türünde.
begin
if OpenDialog1.Execute then
begin
//KODLARIMIZI BURAYA YAZIYORUZ
end;
end;
Açılan Dosyanın, dosya adıyla birlikte yolunu öğrenme:
procedure TForm4.Button2Click(Sender: TObject);
var
dosyaYolu: String;
begin
if OpenDialog1.Execute then
begin
dosyaYolu := OpenDialog1.FileName;
end;
end;
//dosyaYolu değeri = C:\Users\Furkan\Desktop\Kubilay Karça Şehinşah-Kıskanç.mp3
Açılan Dosyanın adını öğrenme (Uzantılı):
procedure TForm4.Button2Click(Sender: TObject);
var
dosyaYolu: String;
begin
if OpenDialog1.Execute then
begin
dosyaYolu := ExtractFileName(OpenDialog1.FileName);
end;
end;
//dosyaYolu değeri = Kubilay Karça Şehinşah-Kıskanç.mp3
Açılan Dosyanın adını öğrenme (Uzantısız): FOR DÖNGÜSÜZ ÇALIŞMAZ!
procedure TForm4.Button2Click(Sender: TObject);
var
I : Integer;
begin
if OpenDialog1.Execute then
begin
for I := 0 to OpenDialog1.Files.Count-1 do
begin
dosyaYolu := ChangeFileExt(ExtractFileName(OpenDialog1.Files[I]), '');
Edit1.Text := dosyaYolu;
end;
end;
end;
//dosyaYolu değeri = Kubilay Karça Şehinşah-Kıskanç
Açılan Dosyanın dizinini öğrenme:
procedure TForm4.Button2Click(Sender: TObject);
var
dosyaYolu: String;
begin
if OpenDialog1.Execute then
begin
dosyaYolu := ExtractFileDir(OpenDialog1.FileName);
end;
end;
//dosyaYolu değeri = C:\Users\Furkan\Desktop
Açılan Dosyanın hangi sürücüde olduğunu öğrenme:
procedure TForm4.Button2Click(Sender: TObject);
var
dosyaYolu: String;
begin
if OpenDialog1.Execute then
begin
dosyaYolu := ExtractFileDrive(OpenDialog1.FileName);
end;
end;
//dosyaYolu değeri = C:
Açılan Dosyanın uzantısını öğrenme:
procedure TForm4.Button2Click(Sender: TObject);
var
dosyaYolu: String;
begin
if OpenDialog1.Execute then
begin
dosyaYolu := ExtractFileExt(OpenDialog1.FileName);
end;
end;
//dosyaYolu değeri = .mp3
