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]);
“`