Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Zombie © (2002-04-10 15:04:00)
Есть такой кусок в 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 - нет! Что делать?

Zombie (2002-04-10 15:17:00) [1]
MBo © (10.04.02 15:12)

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

Работает!

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

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

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

Alx2 (2002-04-10 15:16:00) [3]
uses unit1

Zombie (2002-04-10 15:13:00) [4]
gek (10.04.02 15:09)

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

MBo (2002-04-10 15:12:00) [5]
заливаешь. вот пример
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;

gek (2002-04-10 15:09:00) [6]
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:00) [7]
Виктор Щербаков © (10.04.02 15:08)

Конечно

Виктор Щербаков (2002-04-10 15:08:00) [8]
В uses записал?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »