paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 14:29:14 +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

2
docs/sysutex/ex45.pp
View File

@ -14,7 +14,7 @@ Begin
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);