Jump to content
  • Sky
  • Blueberry
  • Slate
  • Blackcurrant
  • Watermelon
  • Strawberry
  • Orange
  • Banana
  • Apple
  • Emerald
  • Chocolate
  • Charcoal

Recommended Posts

Adds a file to path, if it doesn't exist yet.

Closes the file after creation, so that's why the name "AddFile".

Returns true if the file was added.

 

AddFile

[scar]function AddFile(Path: string): Boolean;

var

f: Integer;

begin

if EndsWith('\', Path) or EndsWith('.', Path) or (Pos('\', Path) < 1) or FileExists(Path) then

Exit;

f := RewriteFile(Path, False);

CloseFile(f);

Result := (f > -1);

end;

 

begin

ClearDebug;

if AddFile(IncludesPath + 'test.txt') then

WriteLn('text.txt was added to "' + IncludesPath + '".')

else

WriteLn('Failed to add text.txt.');

end.[/scar]

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.


×
×
  • Create New...