15 lines
180 B
Text
15 lines
180 B
Text
|
Program TempFileDemo;
|
||
|
|
|
||
|
|
uses
|
||
|
|
SysUtils;
|
||
|
|
|
||
|
|
var
|
||
|
|
tempFile: text;
|
||
|
|
|
||
|
|
begin
|
||
|
|
assign (Tempfile, GetTempFileName);
|
||
|
|
rewrite (tempFile);
|
||
|
|
writeln (tempFile, 5);
|
||
|
|
close (tempFile);
|
||
|
|
end.
|