Как вызвать процедуру в консоли Delphi?

Question

[Артём]

У меня есть процедура
procedure readListRobFromFile(var list : PLinkedListNode; var countOfTops, countOfRobs : integer);
var
fileName : String;
fileIn : TextFile;
n : integer;
i : integer;
top1, top2 : integer;
head : PLinkedListNode;

begin
fileName := 'input.txt';
assign(fileIn, fileName);
reset(fileIn);

read(fileIn, countOfTops, countOfRobs);
new(list);
head := list;

for i := 0 to countOfRobs - 1 do
begin
read(fileIn, top1);
read(fileIn, top2);
addInList(list, top1, top2);
end;

list := head;
close(fileIn);
end;
Мне нужно её вызвать, я не понимаю, как это сделать в консоли, и что мне писать в значениях( текстовый файл со списком ребер подготовлен)

Answer 1

[ralaton121]

1. Смотрим простейшую консольную программу на Дельфи.

code-man.narod.ru/delphi/console_app

Выглядит она примерно так

program Project2;

{$APPTYPE CONSOLE}

<<<<< вашу процедуру вставлять сюда

begin
<<<< а сюда вставлять вызов вашей процедуры
end.

вам осталось подумать - а какие параметры передавать в вызов вашей процедуры

Comments

[Артём]

Уже разобрался, спасибо.