BlueGreycalmElegant

Català-Valencià – Catalan中文 – Chinese (Simplified)中文 – Chinese (Traditional)Česky – CzechDansk – DanishNederlands – DutchEnglish – EnglishSuomi – FinnishFrançais – FrenchDeutsch – Germanעברית – Hebrewहिंदी – HindiMagyar – HungarianBahasa Indonesia – IndonesianItaliano – Italian日本語 – Japanese한국어 – KoreanМакедонски – Macedonianमराठी – MarathiNorsk – NorwegianPolski – PolishPortuguês – PortuguesePortuguês – Portuguese (Brazil)Русский – RussianSlovenčina – SlovakSlovenščina – SlovenianEspañol – SpanishSvenska – SwedishTürkçe – TurkishУкраїнська – UkrainianOëzbekcha – Uzbek

Compare Revisions

• This comparison shows the changes necessary to convert path

  → / @ 29

  → / @ 30

  ↔ Reverse comparison

• Compare Path:	Rev

  With Path:	Rev

Ignore whitespace Rev 29 → Rev 30

/filefind/pascal/filefind.pas
4,24 → 4,24
procedure traverse(directory : string);
var curdir1, curdir2 : string;
Info3 : TSearchRec;
Info : TSearchRec;
pfile : string;
begin
curdir1 := GetCurrentDir;
chdir(directory);
curdir2 := GetCurrentDir;
FindFirst(directory + '/*', faAnyFile or faHidden, Info3);
FindFirst(directory + '/*', faAnyFile or faHidden, Info);
repeat
if ((Info3.name <> '..') and (Info3.name <> '.'))
if ((Info.name <> '..') and (Info.name <> '.'))
then
begin
pfile := curdir2 + '/' + Info3.name;
pfile := curdir2 + '/' + Info.name;
Writeln(pfile);
if (DirectoryExists(pfile))
then
traverse(pfile)
end
until FindNext(Info3) <> 0;
until FindNext(Info) <> 0;
chdir(curdir1);
end;
33,9 → 33,13
begin
directory := ParamStr(1);
if DirectoryExists(directory)
if (ParamCount = 1)
then
start_traverse(directory)
if DirectoryExists(directory)
then
start_traverse(directory)
else
Writeln ('ERROR: Not a directory : ', directory)
else
Writeln ('Not a directory : ', directory)
Writeln('ERROR: Give directory as argument');
end.