| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Теория: Как эта функция отдаёт константы? [D7, 2003]
Vyacheslav © (2011-11-29 14:44:00)Просьба откликнуться тем, у кгого кроме понимания, есть навыки растолковать материал.
Собственно полюбившийся мне модуль: 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 данные?
app (2011-11-29 15:00:00) [1]Слишком много вопросов, а тема одна
Anatoly Podgoretsky (2011-11-29 14:59:00) [2]Думаешь удастся создать филиал курсов по программированию?
| |
