Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.01.09;
Скачать: [xml.tar.bz2];

Вниз

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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.55 MB
Время: 0.027 c
14-25065
Top Gun
2002-12-19 19:55
2003.01.09
Тормоза в Мафии


1-24841
viper
2002-12-27 14:18
2003.01.09
При запуске программы.........


14-25097
111
2002-12-21 22:04
2003.01.09
Картинки


1-24903
alvin
2002-12-22 20:45
2003.01.09
StringGrid


14-25076
Driverrr
2002-12-21 10:19
2003.01.09
Нужны деньги!





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский