17 lines
388 B
ObjectPascal
17 lines
388 B
ObjectPascal
(* Copyright 2021-2024 Sebastian Lederer. See the file LICENSE.md for details *)
|
|
procedure openTextFile(var f:TextFile; filename:string);
|
|
begin
|
|
{$I-}
|
|
assign(f, filename);
|
|
reset(f);
|
|
|
|
if IOResult <> 0 then
|
|
errorExit2('cannot open file', filename);
|
|
{$I+}
|
|
end;
|
|
|
|
procedure overwriteTextFile(var f:TextFile; filename:string);
|
|
begin
|
|
assign(f, filename);
|
|
rewrite(f);
|
|
end;
|