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

Вниз

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

 
Stelius   (2003-04-12 20:48) [0]

Здрастье! Подскажите.
Процедура возвращает динамический массив:
prosedure Proc1(var DA : array of String);
begin
...
SetLength(DA, 2);
...
end;

при компиляции пишет, что несовместимые типы. Чту тут не так?


 
Anatoly Podgoretsky   (2003-04-12 21:09) [1]

Правильно несовместимые, но ругается у тебя не здесь, а в месте вызова процедуры. Тебе надо создать тип и им уже пользоваться.
А так

a, b: array of ... - здесь одного типа

a: array of ...
b: array of ... - здесь разного типа


А вот так

type
TA = array of ...
var
a: TA;
b: TA; - опять одного типа


Это основы языка.




 
jack128   (2003-04-13 00:12) [2]

Да нет. ругается делфя именно на SetLength(...)
У тя у процедуры DA - это не дин массив, а открытый массив.
Надо так :
type
TDynStrArray = array of string;

prosedure Proc1(var DA : TdynStrArray);
begin
...
SetLength(DA, 2);
...
end;




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

Форум: "Основная";
Текущий архив: 2003.04.24;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.006 c
14-77131
Карлсон
2003-04-07 20:10
2003.04.24
Смертная казнь - голосование.


1-77010
Sergik
2003-04-14 10:02
2003.04.24
SpinEdit


6-77068
Snake2000
2003-03-02 13:47
2003.04.24
NMSMTP - Обработка ошибок


3-76805
Новый
2003-04-04 15:19
2003.04.24
Возможно ли сжать базу данных MSAccess, как это делает сам MSAcce


3-76857
Viktor1
2003-04-08 13:00
2003.04.24
Как определить таблица существует или нет?





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский