Форум: "Начинающим";
Текущий архив: 2012.03.11;
Скачать: [xml.tar.bz2];
ВнизТеория: Как эта функция отдаёт константы? Найти похожие ветки
← →
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]Думаешь удастся создать филиал курсов по программированию?
← →
app © (2011-11-29 15:00) [2]Слишком много вопросов, а тема одна
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2012.03.11;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.003 c