FILTMAIN основной
{ FILTMAIN.PAS - основной рабочий модуль программы Filter. Автор: Джим Мишель Дата последней редакции: 04/05/97 } unit filtmain; interface { DoFilter выполняет всю работу } procedure DoFilter; implementation uses CmdLine; procedure DoFilter; const nOptions = 4; Options : Array [1..nOptions] of OptionRec = ( (OptionChar : "i"; Option : otFilename; Filename : ""), (OptionChar : "o"; Option : otFilename; Filename : "") (OptionChar : "n"; Option : otInt; Value : 36), (OptionChar : "d"; Option : otBool; OnOff : False) );
var cRslt : Boolean; Rec : pOptionRec; begin cRslt := CmdLine.ProcessCommandLine (@Options, nOptions);
WriteLn("ProcessCommandLine returned ", cRslt);
Rec := CmdLine.GetOptionsRec (@Options, nOptions, "i");
WriteLn ("i = ", Rec^.Filename);
Rec := CmdLine.GetOptionsRec (@Options, nOptions, "o");
WriteLn ("o = ", Rec^.Filename);
Rec := CmdLine.GetOptionsRec (@Options, nOptions, "n");
WriteLn ("i = ", Rec^.Value);
Rec := CmdLine.GetOptionsRec (@Options, nOptions, "d");
WriteLn ("d = ", Rec^.OnOff);
Write("Press Enter...");
ReadLn; end; end.
Теперь файл проекта содержит именно то, что он должен содержать, - информацию о проекте и команду «марш!». Весь код, написанный программистом, вынесен в FILTMAIN.PAS.
