Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.04.04;
Скачать: CL | DM;

Вниз

Как передать значения параметров в др. процедуру?   Найти похожие ветки 

 
Varg ©   (2002-03-25 17:07) [0]

Вопрос по азам Delphi. Помогите пожалуйста.
В процедуре1 получаю исходные данные, процедура2 в цикле преобразует эти данные. Получается три числа на каждом шаге цикла. Нужно организовать массив из всех результатов процедуры2, чтобы его можно было использовать в процедуре1.
Заранее спасибо.


 
MBo ©   (2002-03-25 17:22) [1]

это?
procedure proc2(var Ainp,Aoutp:array of integer);


 
Юрий Зотов ©   (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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.013 c
1-9576
Master-of-MAX
2002-03-22 16:34
2002.04.04
Помогите ламаку сделать круговой прогрес-бар!


1-9571
snoup
2002-03-24 22:25
2002.04.04
Мне для звонилки нужна статистика (когда считает сколько ты времени провел в интернете)


1-9498
Alex
2002-03-21 22:20
2002.04.04
Эксперты в Дельфи


3-9395
Nest
2002-03-12 11:10
2002.04.04
DBISortTable: сортировка по нескольким полям.


1-9580
Serj-klg
2002-03-23 21:57
2002.04.04
Траблы с принтерами и QReport