Теория: Как эта функция отдаёт константы?

← →
Vyacheslav (2011-11-29 14:44) [0]

Просьба откликнуться тем, у кгого кроме понимания, есть навыки растолковать материал.
Собственно полюбившийся мне модуль: http://www.koders.com/delphi/fidDB05C6361540F62D532FC7C960D4111CE3AAEDB3.aspx
Собственно вот основная чать (а именно функция) по которой возник вопрос:
function ExecuteConsoleApp(const aCommandLine: string;
const aCurrentDir: string = "";
const aAppOutput: TStrings = nil;
const aOnNewText: TZpOnNewTextEvent = nil;
const aOnNewLine: TZpOnNewTextEvent = nil;
const aEnvironment: TStrings = nil;
const aProcessPriority: TZpProcessPriority = ppNormal): Cardinal;

Возьмём примитивный пример её работы вне модуля по событию кнопки:
procedure TForm1.Button1Click(Sender: TObject); begin ExecuteConsoleApp("ping ya.ru -n 10", "", Memo1.Lines); Memo1.Lines.Add("Done!"); end;

1) Каким образом Memo1.Lines получает через aAppOutput.Add(sNewLine); в режиме реального времени строки до того как функция не завершила свою работу?
2) При всё этом не понятно то, что aAppOutput: TStrings обьявлена как константа. Как это понять?
Как предположение, только думаю, если оба aAppOutput: TStrings и Memo1.Lines как указатели ссылаются на одни и те же данные.
3) Можно ли таким образом передать Integer данные?

← →
Anatoly Podgoretsky © (2011-11-29 14:59) [1]

Думаешь удастся создать филиал курсов по программированию?

Слишком много вопросов, а тема одна

Теория: Как эта функция отдаёт константы? Найти похожие ветки