From Clomosy Docs
No edit summary |
No edit summary |
||
| Line 12: | Line 12: | ||
'''Example:'''<br> | '''Example:'''<br> | ||
:''' | |||
:'''TRObject Syntax''' | |||
var | var | ||
myFile : TextFile; | myFile : TextFile; | ||
{ | |||
// Try to open the Test.txt file for writing to | // Try to open the Test.txt file for writing to | ||
AssignFile(myFile, Clomosy.AppFilesPath+'TaskList.txt'); | AssignFile(myFile, Clomosy.AppFilesPath+'TaskList.txt'); | ||
| Line 29: | Line 30: | ||
// Close the file | // Close the file | ||
CloseFile(myFile); | CloseFile(myFile); | ||
} | |||
:''' | :'''Base Syntax''' | ||
var | var | ||
myFile : TextFile; | myFile : TextFile; | ||
begin | |||
// Try to open the Test.txt file for writing to | // Try to open the Test.txt file for writing to | ||
AssignFile(myFile, Clomosy.AppFilesPath+'TaskList.txt'); | AssignFile(myFile, Clomosy.AppFilesPath+'TaskList.txt'); | ||
| Line 48: | Line 49: | ||
// Close the file | // Close the file | ||
CloseFile(myFile); | CloseFile(myFile); | ||
end; | |||
'''Output:'''<br> | '''Output:'''<br> | ||
Revision as of 10:45, 23 August 2024
The AssignFile procedure assigns a value for a FileName in preparation for reading or writing to that file.
Version 1
Takes a text file variable type as the handle. The file is treated as a textfile when opened. If the file name is an empty string, then file access is made to the console standard input and output streams.
Version 2
Takes a binary file variable type as the handle. The file is treated as a binary file.
In both cases, when the file is opened by Append, Reset or ReWrite, it is assumed to be in the current directory.
Example:
- TRObject Syntax
var
myFile : TextFile;
{
// Try to open the Test.txt file for writing to
AssignFile(myFile, Clomosy.AppFilesPath+'TaskList.txt');
ReWrite(myFile);
ShowMessage('The file is added to the directory where the exe is located.');
// Write a couple of well known words to this file
WriteLn(myFile, 'Task 1');
WriteLn(myFile, 'Task 2');
ShowMessage('Lines have been added to the file.');
// Close the file
CloseFile(myFile);
}
- Base Syntax
var
myFile : TextFile;
begin
// Try to open the Test.txt file for writing to
AssignFile(myFile, Clomosy.AppFilesPath+'TaskList.txt');
ReWrite(myFile);
ShowMessage('The file is added to the directory where the exe is located.');
// Write a couple of well known words to this file
WriteLn(myFile, 'Task 1');
WriteLn(myFile, 'Task 2');
ShowMessage('Lines have been added to the file.');
// Close the file
CloseFile(myFile);
end;
Output:
After the file has been saved, it appears as follows.