| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Array of TmyRec [D6, XP]
webpauk © (2007-09-21 15:08:00)
type
TStructure = packed record
ID: Integer;
DelCaption: String;
FormCaption: String;
Label1Caption: String;
SQlName: String;
SQLID: String;
end;
const
cStructure: array[1..4] of TStructure = ( ???)
как прописать элементы?
DVM (2007-09-21 16:01:00) [1]
> webpauk (21.09.07 15:36) [8]
> с другой стороны строить N-ое количество array - а потом
> данные вытягивать из разных - тоже не того...
Да, не я к самому массиву из записей претензий не имею, просто визуально смотрится чудно, да и вот это DelCaption:'1' (с двоеточием) не часто встретишь.
icWasya (2007-09-21 15:44:00) [2]Примерно так
const
cStructure: array[1..2] of TStructure = (
(
ID: 1;
DelCaption: 'Удалить первый элемент';
FormCaption: 'Форма номер 1';
Label1Caption: 'Метка номер 1';
SQlName: 'FirstSQL';
SQLID: '1001'
)
,
(
ID: 2;
DelCaption: 'Удалить Второй элемент';
FormCaption: 'Форма номер 2';
Label1Caption: 'Метка номер 2';
SQlName: 'SecondSQL';
SQLID: '1002'
)
);
webpauk (2007-09-21 15:36:00) [3]
> DVM © (21.09.07 15:24) [5]
с другой стороны строить N-ое количество array - а потом данные вытягивать из разных - тоже не того...
webpauk (2007-09-21 15:28:00) [4]
> Efir © (21.09.07 15:20) [3]
спсибо
stanislav (2007-09-21 15:28:00) [5]webpauk (21.09.07 15:20) [2]
Я имею в виду что нужно узнать как пишеться единичная переменная, а потом определяться с массивом.
DVM (2007-09-21 15:24:00) [6]Конечно жуткая запись если одной строкой особенно. Как то не в духе она паскаля имхо.
DVM (2007-09-21 15:23:00) [7]cStructure: array[1..4] of TStructure = (
(ID:1;
DelCaption:'1';
FormCaption:'1';
Label1Caption:'1';
SQlName:'1';
SQLID:'1'),
(ID:1;
DelCaption:'1';
FormCaption:'1';
Label1Caption:'1';
SQlName:'1';
SQLID:'1'),
(ID:1;
DelCaption:'1';
FormCaption:'1';
Label1Caption:'1';
SQlName:'1';
SQLID:'1'),
(ID:1;
DelCaption:'1';
FormCaption:'1';
Label1Caption:'1';
SQlName:'1';
SQLID:'1')
);
webpauk (2007-09-21 15:20:00) [8]
> stanislav © (21.09.07 15:14) [1]
cStructure: array[1..4] of TStructure
Efir (2007-09-21 15:20:00) [9]Вроде так:
cStructure: array[1..4] of TStructure = ( (ID: 0; DelCaption: '123'; FormCaption: '123'; ...), (ID: 0; ...), (...), (...) ).
stanislav (2007-09-21 15:14:00) [10]а как прописать cStructure: TStructure = (???) ?
| |
