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

* fix error as reported in webbug 2373

Browse Source
This commit is contained in:
pierre 2003-03-16 23:42:02 +00:00
parent 6365e9bfa8
commit 8caf047fa8
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
docs/sysutex/ex45.pp
View File

@ -8,15 +8,15 @@ Uses sysutils;
Var Dirs : Array[0..127] of pchar; Var Dirs : Array[0..127] of pchar;
I,Count : longint; I,Count : longint;
Dir,NewDir : String; Dir,NewDir : String;
Begin Begin
Dir:=GetCurrentDir; Dir:=GetCurrentDir;
Writeln ('Dir : ',Dir); Writeln ('Dir : ',Dir);
NewDir:=''; NewDir:='';
count:=GetDirs(Dir,Dirs); count:=GetDirs(Dir,Dirs);
For I:=0 to Count do For I:=0 to Count-1 do
begin begin
NewDir:=NewDir+'/'+StrPas(Dirs[I]); NewDir:=NewDir+'/'+StrPas(Dirs[I]);
Writeln (NewDir); Writeln (NewDir);
end; end;
End. End.