VPF::Присвоение масивов - Форум программистов

AlexLogos

Дата 28.9.2010, 12:57 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 229
Регистрация: 23.4.2009

Репутация: нет
Всего: 1

Народ, интересует момент
описал процедуру

Код


public
procedure WordReport(DSList:array of TDataSource);

вызвал ее:

Код


WordReport([DSResult,DT_ADRBASE,DT_TEL]);

так работает, а если обьявить переменную DSList:array of TDataSource и пытаться сделать

Код


DSList:=[DSResult,DT_ADRBASE,DT_TEL];

то дает ошибку [DCC Error] OsobaFrame.pas(3546): E2001 Ordinal type required - нужна переменная порядкового типа?

Amphiluke

Дата 28.9.2010, 13:09 (ссылка)

(нет голосов)

Загрузка ...

☽

Профиль
Группа: Завсегдатай
Сообщений: 1253
Регистрация: 26.8.2009

Репутация: 6
Всего: 112

Вы путаете открытый массив (ваш первый пример) и динамический массив (второй пример).

Конструктор открытых массивов может применяться только в момент вызова подпрограммы, принимающей в параметра открытый массив.

Цитата(Delphi Help)

Open array constructors allow you to construct arrays directly within function and procedure calls. They can be passed only as open array parameters or variant open array parameters.

pseud

Дата 28.9.2010, 13:56 (ссылка)

(нет голосов)

Загрузка ...

Экспёрт Тыдыщ

Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

Репутация: 10
Всего: 40

Код


type
  TDSList = array of TDataSource;

type
  TForm1 = class(TForm)
    procedure WordReport(ADSList: TDSList);
  end;


procedure TForm1.WordReport(ADSList: TDSList);
begin
  {...}
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  lst: TDSList;
begin
  SetLength(lst,3);
  lst[0] := DSResult;
  lst[1] := DT_ADRBASE;
  lst[2] := DT_TEL;
  WordReport(lst);
end;

--------------------

Испытание чужого терпения можно считать успешным, если оно лопнуло...

AlexLogos

Дата 28.9.2010, 14:28 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 229
Регистрация: 23.4.2009

Репутация: нет
Всего: 1

Ясненько, я так и сделал, но думал существует версия покороче - много параметров надо передавать. Спасибо.

Snowy

Дата 28.9.2010, 14:55 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 31
Всего: 484

Ну создай метод с открытым массивом и в нём циклом прогони присвоение в динамический.

pseud

Дата 28.9.2010, 15:01 (ссылка)

(нет голосов)

Загрузка ...

Экспёрт Тыдыщ

Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

Репутация: 10
Всего: 40

Цитата(Snowy @ 28.9.2010, 14:55

)

Ну создай метод с открытым массивом и в нём циклом прогони присвоение в динамический.

Snowy, хорошая мысль.

Код


type
  TDSList = array of TDataSource;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    procedure WordReport(ADSList: TDSList); overload;
    procedure WordReport(ADSList: array of TDataSource); overload;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.WordReport(ADSList: TDSList);
begin
  {...}
end;

procedure TForm1.WordReport(ADSList: array of TDataSource);
var
  lst: TDSList;
  i: Integer;
begin
  SetLength(lst, Length(ADSList));
  for i := Low(ADSList) to High(ADSList) do
    lst[i] := ADSList[i];
  WordReport(lst);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  lst: TDSList;
begin
  // 1
  SetLength(lst,3);
  lst[0] := DSResult;
  lst[1] := DT_ADRBASE;
  lst[2] := DT_TEL;
  WordReport(lst);

  // 2
  WordReport([DSResult,DT_ADRBASE,DT_TEL]);
end;

Это сообщение отредактировал(а) pseud - 28.9.2010, 15:02

--------------------

Испытание чужого терпения можно считать успешным, если оно лопнуло...

AlexLogos

Дата 23.10.2010, 10:17 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 229
Регистрация: 23.4.2009

Репутация: нет
Всего: 1

Спасибо друзья. Пока присваиваю данные вручную. Но доработаю БД и там буду хранить нужные записи - тогда сделаю динамику.

Qu1nt

Дата 24.10.2010, 02:13 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 602
Регистрация: 13.1.2007

Репутация: 22
Всего: 50

Код


TDSList = array of TDataSource;
...
WordReport(TDSList.Create(DSResult, DT_ADRBASE, DT_TEL));

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »