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




Вниз

Как увидеть const array в другом юните??? 


Zombie   (2002-04-10 15:04) [0]

Есть такой кусок в interface одного юнита:
...
quest = record
id: integer;
group: integer;
subgroup: integer;
theme: string;
ans1: string;
ans2: string;
ans3: string;
end;

const questions: array[1..44] of quest = (
(id:1; group:1; subgroup:1;
theme:"1.1.1 Тип темперамента";
...

Как увидеть questions в другом юните?! Все переменные видит, а const array - нет! Что делать?



Виктор Щербаков   (2002-04-10 15:08) [1]

В uses записал?



gek   (2002-04-10 15:09) [2]

unit may;

interface

uses
Windows;


type
quest = record
id: integer;
group: integer;
subgroup: integer;
theme: string;
ans1: string;
ans2: string;
ans3: string;
end;

const questions: array[1..44] of quest = (
(id:1; group:1; subgroup:1;
theme:"1.1.1 Тип темперамента";

implementation



Zombie   (2002-04-10 15:09) [3]

Виктор Щербаков © (10.04.02 15:08)

Конечно



MBo   (2002-04-10 15:12) [4]

заливаешь. вот пример
unit Unit2;
interface
type
r=record
i:integer;
end;
const ar:array[1..2] of r=((i:1),(i:2));
-----------
unit1

implementation
{$R *.DFM}
uses unit2;
procedure TForm1.Button1Click(Sender: TObject);
begin
label1.caption:=inttostr(ar[2].i);
end;



Zombie   (2002-04-10 15:13) [5]

gek (10.04.02 15:09)

Просто массив questions у меня очень большой, и объявлен в unit1, а мне нужно обратиться к нему из unit2. Все так, как ты написал, но это в unit1. Что писать в unit2?



Виктор Щербаков   (2002-04-10 15:16) [6]


> Что писать в unit2?

Надо прописать его в uses в секции interface или implementation (зависит от целей).



Alx2   (2002-04-10 15:16) [7]

uses unit1



Zombie   (2002-04-10 15:17) [8]

MBo © (10.04.02 15:12)

Thanks!!!
просто строка label1.caption:=inttostr(ar[2].i);
у меня была примерно такая: label1.caption:=inttostr( form1.ar[2].i);

Работает!




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




Наверх





Память: 0.72 MB
Время: 0.021 c
14-70028          Новичок007            2002-03-18 17:18  2002.04.22  
Помагите пож. очень важно...


14-70026          Esa                   2002-03-18 13:40  2002.04.22  
AccessViolation


3-69677           tovSuhov              2002-03-29 14:36  2002.04.22  
Люди, ну не оставляйте в беде...


1-69824           Кулюкин Олег          2002-04-05 08:56  2002.04.22  
Ищу компонент - HTML viewer


14-69999          McSimm + McSimm       2002-03-15 21:06  2002.04.22  
Извините, просто тест