Delphi DLL

Demonstrate Directory Path Functions

Demonstrates the path functions GetDirectoryName, GetExtension, GetFileName, and GetFileNameWithoutExtension. Delphi DLL

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, FileAccess;

...

procedure TForm1.Button1Click(Sender: TObject);
var
fac: HCkFileAccess;

begin
fac := CkFileAccess_Create();

// Note: Chilkat accepts either forward slash or backslash chars as directory separators..
Memo1.Lines.Add(CkFileAccess__getDirectoryName(fac,'/MyDir/MySubDir/myfile.ext'));
Memo1.Lines.Add(CkFileAccess__getDirectoryName(fac,'/MyDir/MySubDir'));
Memo1.Lines.Add(CkFileAccess__getDirectoryName(fac,'/MyDir/'));
Memo1.Lines.Add(CkFileAccess__getDirectoryName(fac,'/MyDir'));
Memo1.Lines.Add(CkFileAccess__getDirectoryName(fac,'/'));

Memo1.Lines.Add(CkFileAccess__getExtension(fac,'C:/mydir.old/myfile.ext'));
Memo1.Lines.Add(CkFileAccess__getExtension(fac,'C:/mydir.old/'));

Memo1.Lines.Add(CkFileAccess__getFileName(fac,'C:/mydir/myfile.ext'));
Memo1.Lines.Add(CkFileAccess__getFileName(fac,'C:/mydir/'));

Memo1.Lines.Add(CkFileAccess__getFileNameWithoutExtension(fac,'C:/mydir/myfile.ext'));
Memo1.Lines.Add(CkFileAccess__getFileNameWithoutExtension(fac,'C:/mydir/'));

Memo1.Lines.Add('---');

CkFileAccess_Dispose(fac);

end;