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

Вниз

param as array of variant   Найти похожие ветки 

 
serikoff ©   (2002-12-25 19:44) [0]

Здравствуйте.

Код вызывает "invalid variant operation".
Почему?
По логике ветка с ShowMessage(p[0]);
вообще не выполняется.

procedure func(p: array of variant);
begin
if high(p) = -1 then begin
ShowMessage("!")
end else begin
ShowMessage(p[0]);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
func([]);
end;

Спасибо.

ps. Delphi 5.


 
Anatoly Podgoretsky ©   (2002-12-25 19:52) [1]

Ты проверил чему равен high(p) при входе в функцию?


 
serikoff ©   (2002-12-25 19:56) [2]

procedure func(p: array of variant);
begin
if high(p) = -1 then begin
ShowMessage(inttostr(high(p)))
end else begin
//ShowMessage(p[0]);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
func([]);
end;

Выдает "-1"


 
Clickmaker ©   (2002-12-25 20:03) [3]

Все дело в волшебном слове "const":
procedure func(const p: array of variant);


 
serikoff ©   (2002-12-25 20:08) [4]

Спасибо, помогло.

А собственно почему?

ps. "Казалось-бы, причем тут Л$#ков?"(c) ;-)




Страницы: 1 вся ветка

Текущий архив: 2003.01.09;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.012 c
14-25042
hatchy
2002-12-20 11:41
2003.01.09
button! button! button! button! button!


14-25013
zzet
2002-12-19 00:57
2003.01.09
Спам - это божья кара за наши к нему молитвы.


14-25058
Driverrr
2002-12-20 19:07
2003.01.09
HELP!


3-24821
Roki
2002-12-17 09:43
2003.01.09
Преобразование даты!


8-24976
Алексей Ким
2002-09-21 19:17
2003.01.09
$f