Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.04;
Скачать: [xml.tar.bz2];




Вниз

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


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;




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.04;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.017 c
3-9415            lightix               2002-03-12 16:16  2002.04.04  
Как вывести в отчет все поля запроса, если их количество непостоянно?


14-9606           Song                  2002-02-19 17:44  2002.04.04  
Продавать свои программы офицально и юридически правильно? Что для этого нужно?


4-9686            King Nothing          2002-02-03 15:46  2002.04.04  
Вывод растра из ресурса


3-9414            Draculenok            2002-03-13 12:11  2002.04.04  
Создание отчета по нескольким линям мемо( чуть не хватает.....)


1-9447            Fran                  2002-03-24 17:15  2002.04.04  
Нужен компонент типа TrxCalcEdit, но вместо цифр - английские буквы.