paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 01:09:27 +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;
I,Count : longint;
Dir,NewDir : String;
Begin
Dir:=GetCurrentDir;
Writeln ('Dir : ',Dir);
NewDir:='';
count:=GetDirs(Dir,Dirs);
For I:=0 to Count do
For I:=0 to Count-1 do
begin
NewDir:=NewDir+'/'+StrPas(Dirs[I]);
Writeln (NewDir);
end;
End.
End.