blob: ac205439c9386ba7d5d2567fe7415b86bd5b1521 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
Program Example88;
{ Program to demonstrate the AssignFile and CloseFile functions. }
{$MODE Delphi}
Var F : text;
begin
AssignFile(F,'textfile.tmp');
Rewrite(F);
Writeln (F,'This is a silly example of AssignFile and CloseFile.');
CloseFile(F);
end.
|