blob: dc08b426bf29fd968828cb5e09e70ff201c92ffb (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
Program Example19;
{ Program to demonstrate the fdOpen, fdwrite and fdCLose functions. }
Uses oldlinux;
Const Line : String[80] = 'This is easy writing !';
Var FD : Longint;
begin
FD:=fdOpen ('Test.dat',Open_WrOnly or Open_Creat);
if FD>0 then
begin
if length(Line)<>fdwrite (FD,Line[1],Length(Line)) then
Writeln ('Error when writing to file !');
fdClose(FD);
end;
end.
|
