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

  → /filefind/pascal/filefind.pas @ 37

  → /filefind/pascal/filefind.pas @ 36

  ↔ Reverse comparison

• Compare Path:	Rev

  With Path:	Rev

Ignore whitespace Rev 37 → Rev 36

/filefind/pascal/filefind.pas
1,18 → 1,11
program filefind;
Uses sysutils;
var directory : string;
var progname : string;
// ============================================================================
// Functions
// ============================================================================
procedure Usage(mesg : string);
begin
Writeln('Usage: ' + progname + ' directory');
Writeln(mesg);
end;
procedure traverse(directory : string);
var curdir1, curdir2 : string;
Info : TSearchRec;
47,7 → 40,6
// ============================================================================
begin
progname := ParamStr(0);
directory := ParamStr(1);
if (ParamCount = 1)
then
55,7 → 47,7
then
start_traverse(directory)
else
Usage('ERROR: Not a directory : ' + directory)
Writeln ('ERROR: Not a directory : ', directory)
else
Usage('ERROR: 1 argument expected');
Writeln('ERROR: Give directory as argument');
end.