Ingo Foerster
asked on
Delphi: ForceDirectory plain function
I need to write my own ForceDirectory function in Delphi. This because I have my own Filesystem with own objects so I cannot use Sysutils.
So how it can looks like here:
to have an own ForceDirectory function? The Function have to check and create a Path in all.
So how it can looks like here:
procedure TForm1.Button1Click(Sender: TObject);
var
Dir: string;
begin
Dir := 'C:\APPS\SALES\LOCAL';
if SysUtils.ForceDirectories(Dir) then
Label1.Caption := Dir + ' was created'
end;
to have an own ForceDirectory function? The Function have to check and create a Path in all.
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Delphi is not open source
Specific license types of Delphi you buy contain a folder with the source code of the VCL.
You bought a version of Delphi with such a license.
Read the disclaimer carefully, you'll see it indicates not to distribute the source code
Specific license types of Delphi you buy contain a folder with the source code of the VCL.
You bought a version of Delphi with such a license.
Read the disclaimer carefully, you'll see it indicates not to distribute the source code
ASKER
Gruwez:
The MiniRTL is open source. Public available and from Embacadero:
https://github.com/Fr0sT-Brutal/Delphi_MiniRTL/blob/master/SysUtils.pas
No license type defined in source.
The MiniRTL is open source. Public available and from Embacadero:
https://github.com/Fr0sT-Brutal/Delphi_MiniRTL/blob/master/SysUtils.pas
No license type defined in source.
SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
No solution
you invented a new operating system ?
you'll need to provide all the specs for your filesystem
how long can a directory name be ? 653 bytes ?
how do you navigate up ? or indicate the same directory ?
using . and .. ?
or are you just working on windows ?