mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-31 03:11:39 +01:00
23 lines
385 B
ObjectPascal
23 lines
385 B
ObjectPascal
Program Example45;
|
|
|
|
{ This program demonstrates the GetDirs function }
|
|
{$H+}
|
|
|
|
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-1 do
|
|
begin
|
|
NewDir:=NewDir+'/'+StrPas(Dirs[I]);
|
|
Writeln (NewDir);
|
|
end;
|
|
End.
|