передача массива в качестве параметра

← →
Vladimir (2009-03-04 09:14) [0]

Доброго времени суток всем! Есть некая функция, которая должна в качестве возвращаемого параметра возвращать массив. Можно ли это сделать?

← →
brother © (2009-03-04 09:19) [1]

да

← →
MBo © (2009-03-04 09:20) [2]

да, можно, предварительно объявив тип массива.
А если сделать процедуру с массивом - var-параметром, то иногда это помогает избежать ошибок.

← →
Vladimir (2009-03-04 10:02) [3]

Спасибо конечно) но как это сделать?

есть тип TClientInfo = record в нем множество полей и есть массив PaidClients: array of TClientInfo

Есть функция LoadPaidClientsInfo, которая должна возвращать массив типа TClientInfo. как это реализовать?

← →
Сергей М. © (2009-03-04 10:14) [4]

type
TClientInfo = record
i: Integer;
end;
TClientInfoArray = array of TClientInfo;

function LoadPaidClientsInfo(out InfoArray: TClientInfoArray): Boolean;
begin
SetLength(InfoArray, 1);
InfoArray[0].i := 5;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
InfoArray: TClientInfoArray;
begin
LoadPaidClientsInfo(InfoArray);
ShowMessage(IntToStr(InfoArray[0].i));
end;

← →
brother © (2009-03-04 10:15) [5]

> TClientInfo = record в нем множество полей и есть массив
> PaidClients: array of TClientInfo

это сам на себя?

← →
brother © (2009-03-04 10:17) [6]

[4]
а я так понял:
type
TClientInfo = record
i: Integer;
PaidClients: array of TClientInfo;
end;

← →
Vladimir (2009-03-04 10:24) [7]

> это сам на себя?

не понял вас.

← →
Vladimir (2009-03-04 10:29) [8]

> [4]
> а я так понял:
> type
> TClientInfo = record
> i: Integer;
> PaidClients: array of TClientInfo;
> end;

нет, PaidClients находиться не внутри TClientInfo, а массив типа TClientInfo

type
TClientInfo = record
..................
end;

var
PaidClients: array of TClientInfo;

> Vladimir (04.03.09 10:24) [7]

Ну как ты написал, так тебя brother © и понял)

> есть тип TClientInfo = record в нем множество полей и есть массив PaidClients: array of TClientInfo

"и есть" воспринимается как "среди прочих в том числе есть"

тогда [4] код переделай чуть и будет тебе счастье)

← →
Vladimir (2009-03-04 10:48) [11]

Да спасибо большое. Уже переделал. Все работает.

А книжку-какую всё-таки советую приобрести, а то тут немощным не часто подают...

передача массива в качестве параметра Найти похожие ветки