paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-27 20:54:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ cleaner source

Browse Source
This commit is contained in:
carl 2001-11-22 03:18:12 +00:00
parent f8ce27af1e
commit 9c92978508
3 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
docs/dosex/ex5.pp
View File

@ -11,5 +11,5 @@ begin
WriteLn('Executing Dir');
Exec(GetEnv('COMSPEC'),'/C dir');
{$ENDIF}
WriteLn('Program returned with ExitCode ',DosExitCode);
WriteLn('Program returned with ExitCode ',Lo(DosExitCode));
end.

3
docs/dosex/ex7.pp
View File

@ -6,7 +6,7 @@ uses Dos;
var
Dir : SearchRec;
begin
FindFirst('*.*',$20,Dir);
FindFirst('*.*',archive,Dir);
WriteLn('FileName'+Space(32),'FileSize':9);
while (DosError=0) do
begin
@ -15,3 +15,4 @@ begin
end;
FindClose(Dir);
end.

10
docs/dosex/ex8.pp
View File

@ -10,9 +10,9 @@ begin
Assign(f,ParamStr(1));
GetFAttr(f,Attr);
WriteLn('File ',ParamStr(1),' has attribute ',Attr);
if (Attr and $20)<>0 then WriteLn('- Archive');
if (Attr and $10)<>0 then WriteLn('- Directory');
if (Attr and $4)<>0 then WriteLn('- Read-Only');
if (Attr and $2)<>0 then WriteLn('- System');
if (Attr and $1)<>0 then WriteLn('- Hidden');
if (Attr and archive)<>0 then WriteLn('- Archive');
if (Attr and directory)<>0 then WriteLn('- Directory');
if (Attr and readonly)<>0 then WriteLn('- Read-Only');
if (Attr and sysfile)<>0 then WriteLn('- System');
if (Attr and hidden)<>0 then WriteLn('- Hidden');
end.