| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Константа - массив записей. Как делать? [D7]

Страницы:   < 1 2 >

Карелин Артем ©   (2005-08-31 18:16:00) 

Есть к примеру следующее:
type TMyProc = procedure (aStr:string);
type TMyStr = string;
type TMyRec = record
 MyProc: TMyProc;
 MyStr: TMyStr;
end;

procedure P1(aStr:string);
procedure P2(aStr:string);
procedure P3(aStr:string);

const MyArray: array [1..3] of TMyRec ={А как тут указать значения не знаю}
Как-то не нравится обявлять это как переменную и в initialization заполнять этот массив.

---

Piter   (2005-08-31 23:12:00) [21]

Удалено модератором

---

jack128   (2005-08-31 21:48:00) [22]

Удалено модератором

---

Palladin   (2005-08-31 21:06:00) [23]

Удалено модератором

---

Гаврила   (2005-08-31 20:33:00) [24]

Удалено модератором

---

palva   (2005-08-31 20:19:00) [25]

Удалено модератором

---

Piter   (2005-08-31 19:22:00) [26]

Удалено модератором

---

jack128   (2005-08-31 19:17:00) [27]

type
 TMyProc = procedure (aStr: string);
 TMyStr = string;
 TMyRec = record
   MyProc: TMyProc;
   MyStr: TMyStr;
 end;

procedure Test1(aStr: string);
begin
end;

procedure Test2(aStr: string);
begin
end;

procedure Test3(aStr: string);
begin
end;

const
 MyArray: array [1..3] of TMyRec =(
   (MyProc: Test1; MyStr: 'Test1'),
   (MyProc: Test2; MyStr: 'Test2'),
   (MyProc: Test3; MyStr: 'Test3')
 );

---

Страницы:   < 1 2 >

Наверх