mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-05-07 09:12:30 +02:00
22 lines
383 B
ObjectPascal
22 lines
383 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 do
|
|
begin
|
|
NewDir:=NewDir+'/'+StrPas(Dirs[I]);
|
|
Writeln (NewDir);
|
|
end;
|
|
End. |