mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-31 22:11:12 +01:00
15 lines
262 B
ObjectPascal
15 lines
262 B
ObjectPascal
Program Example88;
|
|
|
|
{ Program to demonstrate the AssignFile and CloseFile functions. }
|
|
|
|
{$MODE Delphi}
|
|
|
|
Var F : text;
|
|
|
|
begin
|
|
AssignFile(F,'textfile.txt');
|
|
Rewrite(F);
|
|
Writeln (F,'This is a silly example of AssignFile and CloseFile.');
|
|
CloseFile(F);
|
|
end.
|