Форум: "Основная";
Текущий архив: 2002.04.04;
Скачать: [xml.tar.bz2];
ВнизКак передать значения параметров в др. процедуру? Найти похожие ветки
← →
Юрий Зотов (2002-03-25 17:24) [2]procedure Proc1(...);
procedure Proc2(...; var Result1, Result, Result3: ...);
begin
...
end;
var
Results: array of ...;
i, N: integer;
R1, R2, R3: ...;
begin
N := ...; // Число проходов цикла
SetLength(Results, 3 * N); // Выделяем память под массив
try
for i := 0 to N - 1 do // Обязательно с нуля!
begin // Получаем результаты и запоминаем их в массиве
Proc2(..., R1, R2, R3);
Results[i * 3] := R1;
Results[i * 3 + 1] := R2;
Results[i * 3 + 2] := R3
end;
... // Работаем с готовым массивом Results
finally
Results := nil // Освобождаем память
end
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.04.04;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.004 c