Delphi’de Dosya Adlarına Uzantı Ekleme
Delphi’de dosya adlarına uzantı eklemek, dosya işlemlerinde yaygın bir görevdir. Bir dosyanın uzantısı, dosya türünü ve içeriğini belirtir. Örneğin, “.txt” uzantılı bir dosya metin dosyasıdır, “.jpg” uzantılı bir dosya ise görüntü dosyasıdır.
Dosya adlarına uzantı eklemek için Delphi’de birkaç yöntem vardır. Bu yöntemler şunları içerir:
1. String İşlemleri Kullanma
En basit yöntem, string işlemleri kullanmaktır. ExtractFileExt ve ChangeFileExt fonksiyonları, sırasıyla bir dosya adından uzantıyı çıkarmak ve bir dosya adının uzantısını değiştirmek için kullanılabilir.
“`delphi
uses SysUtils;
var
FileName: string;
FileName := ‘myfile.txt’;
// Uzantıyı çıkar
ExtractFileExt(FileName); // FileName şimdi ‘myfile’ olur
// Uzantıyı değiştir
ChangeFileExt(FileName, ‘.doc’); // FileName şimdi ‘myfile.doc’ olur
“`
2. TPath Sınıfını Kullanma
TPath sınıfı, dosya ve dizin yollarıyla çalışmak için kapsamlı bir dizi özellik ve yöntem sağlar. AddExt yöntemi, bir dosya adına uzantı eklemek için kullanılabilir.
“`delphi
uses System.IOUtils;
var
Path: TPath;
Path := TPath.Create(‘myfile.txt’);
// Uzantıyı ekle
Path.AddExt(‘.doc’);
// Dosya adını al
FileName := Path.FileName; // FileName şimdi ‘myfile.doc’ olur
“`
3. TDirectory Sınıfını Kullanma
TDirectory sınıfı, dizinlerle çalışmak için kullanılır. GetFiles yöntemi, belirli bir dizindeki dosyaların bir listesini döndürür. GetFiles yöntemi, dosya adlarını uzantılarıyla birlikte döndürmek için Options parametresiyle kullanılabilir.
“`delphi
uses System.IOUtils;
var
Directory: TDirectory;
Files: TStringList;
Directory := TDirectory.Create(‘c:\mydirectory’);
// Dosya adlarını uzantılarıyla birlikte al
Files := Directory.GetFiles(‘*’, TSearchOption.soAllDirectories, [‘faExtension’]);
// Dosya adlarını yazdır
for i := 0 to Files.Count – 1 do
Writeln(Files[i]);
“`