[Solved]How to write to sub-directory

[Robert.Thompson]

Hello:

Using Lazarus 1.6.4  FPC 3.0.2 on LinuxMint 18.2

The following does not work as I hoped.

It creates the sub-directory (My_Files) within the working directory but it does not create the files in it – it creates the files in the working directory.


// create all output files required.
procedure CreateOutPutFiles;
begin
 
    // Create new sub-directory called: 'My_Files' for text file output.
    CreateDir('My_Files');
    // Create 'Placed_Calls.txt' file in sub-directory
    AssignFile(Placed,'My_Files\Placed_Calls.txt');
    //empty it.
    Rewrite(Placed);
    //Open it.
    Append(Placed);               
<snip> there are many more files created.

Does anyone know what I am doing wrong?

Thanks,

Rob.

[Eugene Loza]

'My_Files\Placed_Calls.txt'

First thing comes to my mind, you should use pathdelim to propely specify a sub-directory in a cross-platform (and a safe) way:

Code: Pascal  [Select][+][-]

1. 'My_Files'+pathdelim+'Placed_Calls.txt'

Second, when you Rewrite file, you open it too.

Code: Pascal  [Select][+][-]

1.     //empty it.
2.     Rewrite(Placed); // <------ this is absolutely enough

    //Open it.
    Append(Placed);   <----- I can hardly tell, why aren't you getting an IO error here.
And don't forget to CloseFile(Placed) after you've processed it, or you'll get data not written completely or an IO error.

(UPD) One more thing to check:
You may get a strange behaviour of CreateDir('My_Files'); in case the directory already exists. You should either delete it first or check if it exists and not create it again in such case.

[Robert.Thompson]

Thank you Eugene!

Using +pathdelim+ works perfectly, and, deleting the Append(Placed) worked as well.

Thanks again,

Rob.