VPF::Проблема с динамическим массивом, если его

Delphist

Дата 8.4.2009, 11:45 (ссылка)

(голосов:1)

Загрузка ...

Delphist Эксперт

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

Репутация: 2
Всего: 3

Есть интересная особенность поведения динамического массива. А именно, если написать так:

Код


procedure TMyClass.Foo(arr: array of variant)
begin
...
end;

и так:

Код


type
  TDynArrOfVariant = array of variant;

...
procedure TMyClass.Foo(arr: TDynArrOfVariant)
begin
   ...
end;

то это разные вещи.
В первом случаем мы можем сделать так: Foo([1, 2, '3']), во втором же Delphi откажется компилировать этот код.
Чем это объяснить и как заставить работать и первый и второй случай

Это сообщение отредактировал(а) Delphist - 8.4.2009, 11:47

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

ProcessInfo 1-ая моя программа (аналог spyxx.exe с гораздо большим функц-ом - внедрение dll в адр. простр. процесса, перехват API-функций, разбор приложения на окна мн.др).
Когда-то давным-давно использовал это...

bems

Дата 8.4.2009, 13:12 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

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

Цитата(Delphist @ 8.4.2009, 11:45

)

Чем это объяснить

тем что как ты сам сказал, это разные вещи. Итс бай дезигн

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

Обижено школьников: 8

Delphist

Дата 8.4.2009, 13:41 (ссылка)

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

Загрузка ...

Delphist Эксперт

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

Репутация: 2
Всего: 3

Цитата(bems @ 8.4.2009, 14:12

)

тем что как ты сам сказал, это разные вещи. Итс бай дезигн

ты эт о чем smile

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

cemick

Дата 8.4.2009, 13:55 (ссылка)

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

Загрузка ...

Опытный

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

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

В делфовском хелпе посмотри раздел "Open array parameters"

Андре

Дата 8.4.2009, 14:12 (ссылка)

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

Загрузка ...

Новичок

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

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

У меня заработало, вот как сделал:

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  TDynArrOfVariant = array of variant;
  PDynArrOfVariant=^TDynArrOfVariant;
var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure Test(a:TDynArrOfVariant);
begin
  Exit;
end;

procedure TForm1.Button1Click(Sender: TObject);
var a:TDynArrOfVariant;
begin
  SetLength(a,10);
  a[0]:=10;
  a[1]:='A';
  Test(a);
end;

end.

Тут все дело в SetLength, без нее ругаеццо сильно smile

Это сообщение отредактировал(а) Андре - 8.4.2009, 14:15

cemick

Дата 8.4.2009, 14:21 (ссылка)

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

Загрузка ...

Опытный

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

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

Цитата(Андре @ 8.4.2009, 14:12

)

У меня заработало, вот как сделал:

У тебя заработало потому, что ты передал переменную с массивом, передавать [1,2,3] не верно, так как это не ссылка на динамический массив, а скобочки с цифрами через запятую.

A в procedure TMyClass.Foo(arr: array of variant) - формальный параметр не является динамическим массивом, а массивом параметром и может принимать как статические массивы, так и динамические. И если в качестве параметра указываем [1, 2, '3'] то будет вызван конструктор, который создаст и вернет массив.

Это сообщение отредактировал(а) cemick - 8.4.2009, 14:22

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