paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-04 09:10:53 +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'); WriteLn('Executing Dir');
Exec(GetEnv('COMSPEC'),'/C dir'); Exec(GetEnv('COMSPEC'),'/C dir');
{$ENDIF} {$ENDIF}
WriteLn('Program returned with ExitCode ',DosExitCode); WriteLn('Program returned with ExitCode ',Lo(DosExitCode));
end. end.

3
docs/dosex/ex7.pp
View File

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

10
docs/dosex/ex8.pp
View File

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