|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
17.06.2013, 15:34 | #1 |
Новичок
Джуниор
Регистрация: 17.06.2013
Сообщений: 5
|
Delphi7 Многомодульная программа
На форме: Panel1; Button1; Memo1;
Пытаюсь создать программу состоящую из двух модулей Unit1 и Unit2. В главном модуле Unit1 в секции type создал пользовательский тип данных - массив(type Tmas = array[1..4] of string. Инициализировал переменную этим типом(var mas1:Tmas и передал её в качестве параметра процедуры во второй модуль(Unit2.str(mas1), где создал процедуру обработки массива. В главном модуле Unit1 создал вывод результата в Memo1. При компиляции программы происходит ошибка в строке (Unit2.str(mas1): ------------- [Error] Unit1.pas(28): Types of actual and formal var parameters must be identical ------------- Подскажите пожайлуста, что я не так делаю? Заранее спасибо. Вот полный код программы с обоими модулями: ---------------------------------------------------- Модуль Unit1: Код:
Код:
|
17.06.2013, 16:59 | #2 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
опишите тип TMas ОДИН раз.
два описания - с точки зрения компилятора это РАЗНЫЕ типы!!! Последний раз редактировалось Serge_Bliznykov; 17.06.2013 в 17:02. |
17.06.2013, 17:21 | #3 |
Новичок
Джуниор
Регистрация: 17.06.2013
Сообщений: 5
|
Я так уже делал.
Создавал тип TMas только в модуле unit1, в этом случае компилятор выдавал ошибку в модуле unit2 в строке: procedure str(var mas2:Tmas); Текст ошибки: [Error] Unit2.pas(6): Undeclared identifier: 'Tmas' Я и подумал, может быть пользовательский тип нужно создавать и во втором модуле. Сейчас ещё раз убрал строку type Tmas = array[1..4] of string; из модуля unit2, но бесполезно, всё равно ошибка. Сейчас код в unit2 такой: Код:
procedure str(var mas2:Tmas); Текст ошибки: [Error] Unit2.pas(6): Undeclared identifier: 'Tmas' |
17.06.2013, 17:51 | #4 |
Форумчанин
Регистрация: 23.11.2012
Сообщений: 428
|
допиши во втором юните uses Unit1
|
17.06.2013, 17:59 | #5 | |
Форумчанин
Регистрация: 21.10.2010
Сообщений: 588
|
Цитата:
Пользователь не знает, чего он хочет, пока не увидит то, что он получил.
Для благодарностей WMR R145235935681 |
|
17.06.2013, 18:23 | #6 |
Новичок
Джуниор
Регистрация: 17.06.2013
Сообщений: 5
|
Всё сделал так как посоветовал GetMax.
Программа откомпилировалась и заработала! Огромное спасибо всем участникам форума за советы! Вот полный код программы: Модуль Unit1: Код:
Код:
Код:
|
17.06.2013, 19:18 | #7 | |
Старожил
Регистрация: 17.11.2010
Сообщений: 18,922
|
Цитата:
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Последний раз редактировалось Аватар; 17.06.2013 в 19:22. |
|
17.06.2013, 19:39 | #8 |
Новичок
Джуниор
Регистрация: 17.06.2013
Сообщений: 5
|
Попробовал сделать так как посоветовал Аватар, произошла ошибка в строке
procedure str(var mas2:Tmas); модуля Unit2. [Error] Unit2.pas(5): Undeclared identifier: 'Tmas' Вот полный код программы: Модуль Unit1: Код:
Модуль Unit2: Код:
|
17.06.2013, 19:50 | #9 |
Старожил
Регистрация: 17.11.2010
Сообщений: 18,922
|
viktor178, наоборот сделай ссылки
Код:
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
|
17.06.2013, 20:03 | #10 |
Новичок
Джуниор
Регистрация: 17.06.2013
Сообщений: 5
|
Действительно, всё получилось, спасибо Аватар!
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
программа в Delphi7!!! | Mark188 | Помощь студентам | 2 | 31.03.2013 12:34 |
НУЖНА ПРОГРАММА НА DELPHI7 | DIAMONDS | Фриланс | 10 | 13.02.2010 15:10 |
Нужна программа по базам данных на Delphi7 | DIAMONDS | Помощь студентам | 4 | 19.01.2010 13:18 |
delphi7 программа после компиляции сразу закрывается | fredd | Помощь студентам | 1 | 30.10.2008 14:25 |
Строки. Программа в Delphi7 | Настена | Помощь студентам | 3 | 09.01.2008 12:33 |