Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.08.27;
Скачать: CL | DM;

Вниз

Инициализация массива.   Найти похожие ветки 

 
Германн ©   (2010-05-05 02:36) [40]

Кстати. Даже если ты не знаешь термина "литерал", не пугайся.


 
Anatoly Podgoretsky ©   (2010-05-05 08:56) [41]


> Лишь бы ограничение Дельфи на длину литерала не мешала.

Не мешает тем, кто слышал про знак плюс.


 
Lyonux ©   (2010-05-05 12:49) [42]

Простите, что вмешиваюсь в ваших интеллектуальный спор, но не вижу почвы для оного) Самый первый и, я считаю, самый замечательный коментарий:

> Демо ©   (01.05.10 23:39) [1]
> > Б   (01.05.10 23:23) Программно сформировать файл с кодом
> для заполнения массива, хатем воспользоваться {$INCLUDE
> <FileName>}


И сделать на OnCreate процедурку:

var i:byte;
begin
AssignFile(File,"FileName");
reset(File);
i:=1;
While not eof do
begin
read(File,x);
arr[i]:=x;
inc(i);
end;
CloseFile(File);
end;

где arr - массив, который вы заполняете специфическими символами из файла, который можно создать вручную или в  наскоро собранной программке)
Ура?


 
oldman ©   (2010-05-05 12:53) [43]


> Lyonux ©   (05.05.10 12:49) [42]


Чем формирование файла отличается от инициализации внутри кода, чего не хочет автор?
Ну лень ему потратить день на долбежку по клавушке...


 
brother ©   (2010-05-05 12:54) [44]

> Ну лень ему потратить день на долбежку по клавушке...

а придется, если только исходные данные уже не в файле ;)


 
Lyonux ©   (2010-05-05 13:00) [45]

какой, простите, чудной автор) Надо ему секретаршу заводить, для объявления "стапиццот" переменных вручную)


 
Б   (2010-05-07 13:17) [46]


> Германн ©   (05.05.10 02:01) [39]
>
> > Не правда ли лучше это сделать 1-2 строками, вылезающими
>
> > за поле видимости редактора кода, конечно?
>
> a[1]:=17;a[2]:=30;a[3]:=45; ...


Какой способ удобнее? ;D


Procedure XProc_1;
{$J+}
Const
 Arr: array [1..?] of LongWord = (X_CONST1, X_CONST2, X_CONST3, X_CONT4, X_CONT5,
 X_CONST6, X_CONST7, X_CONST8, X_CONT9, X_CONT10, ... // и т.д.
 )
{$J-}
begin
 Arr[32]:= 72;
End;

Procedure XProc_2;
Const
 Arr: array [1..?] of LongWord;
begin
 Arr[1]:= X_CONST1; Arr[2]:= X_CONST2; Arr[3]:= X_CONST3; Arr[4]:= X_CONT4; Arr[5] := X_CONT5;
 Arr[6]:= X_CONST6; Arr[7]:= X_CONST7; Arr[8]:= X_CONST8; Arr[9]:= X_CONT9; Arr[10]:= X_CONT10; //... и т.д.

 Arr[32]:= 72;
End;


> Можно и в одну строчку вместить раз тебя не пугает вылезание за "поле видимости редактора".

А с чего это должно пугать? ;)


 
Б   (2010-05-07 13:18) [47]

> Procedure XProc_2;

Не const, а var.


 
Б   (2010-05-07 13:23) [48]


> Amoeba_   (04.05.10 23:49) [38]
> код его заполнения в отдельный модуль


См. выше.
Мозолит? ;D


> Lyonux ©   (05.05.10 12:49) [42]
> И сделать на OnCreate процедурку:


Нафига?
Если можно в коде прописать.


 
Sha ©   (2010-05-07 13:26) [49]

> Б   (07.05.10 13:17) [46]
> Какой способ удобнее?

удобнее

var
  Arr: array [1..?] of LongWord =

и не надо лохматить бабушку


 
Б   (2010-05-07 13:28) [50]


> oldman ©   (05.05.10 12:53) [43]
> Ну лень ему потратить день на долбежку по клавушке...


> Lyonux ©   (05.05.10 13:00) [45]
> какой, простите, чудной автор) Надо ему секретаршу заводить, для
> объявления "стапиццот" переменных вручную)

А причём тут сложность в заполнении массива?
Я такого не говорил.

> brother ©   (05.05.10 12:54) [44]
> а придется, если только исходные данные уже не в файле ;)

А в файл, по-твоему мнению, не нужно заполнять перед этим? ;)
Да и ещё писать загрузчик.


 
Б   (2010-05-07 13:32) [51]


> Sha ©   (07.05.10 13:26) [49]
> > Б   (07.05.10 13:17) [46]
> > Какой способ удобнее?
>
> удобнее


Почему?


 
Б   (2010-05-07 13:43) [52]


> Б   (07.05.10 13:28) [50]

> Да и ещё писать загрузчик.

И таскать лишний хлам.


 
Sha ©   (2010-05-07 13:59) [53]

> Б   (07.05.10 13:32) [51]
> Почему?

Потому, что не использует умирающие конструкции
и говорит правду, никого не обманывая.


 
Омлет ©   (2010-05-07 14:19) [54]

Открываем glut.pas для OpenGL и видим, что там чайник прописан в виде массива координат:

 TeaData :
   Array[0..126, 0..2] of GLfloat =
   ( (   0.2,       0,     2.7),
     (   0.2,  -0.112,     2.7),
     ( 0.112,    -0.2,     2.7),
     (     0,    -0.2,     2.7),
     (1.3375,       0, 2.53125),
     (1.3375,  -0.749, 2.53125),
     ( 0.749, -1.3375, 2.53125),
     .....
     .....


 
Б   (2010-05-07 14:29) [55]


> Sha ©   (07.05.10 13:59) [53]


В D7 есть  и ладно.

> и говорит правду, никого не обманывая.

В чём обман?


 
Sha ©   (2010-05-07 14:38) [56]

В слове const и локальном расположении.
Это костыль для старых версий Delphi.


 
Б   (2010-05-07 14:50) [57]


> Sha ©   (07.05.10 14:38) [56]


Ну и что?
Массив используется однократно.
При этом не разносит код глоб. объявлениями - сгруппировывает.

P.S.
{$J+-}
Оч. удобная штука, кстати. ;)
Можно иногда сохранять прежние данные без лишних переменных.


 
Leonid Troyanovsky ©   (2010-05-07 15:44) [58]


> Б   (07.05.10 14:50) [57]

> {$J+-}
> Оч. удобная штука, кстати. ;)

Уподоблю оную конституции.

--
Regards, LVT.


 
Б   (2010-05-07 16:11) [59]


> Leonid Troyanovsky ©   (07.05.10 15:44) [58]


>
> Уподоблю оную конституции.


Не понял.


 
Anatoly Podgoretsky ©   (2010-05-07 16:32) [60]

> Б  (07.05.2010 16:11:59)  [59]

БЛЮ


 
Leonid Troyanovsky ©   (2010-05-07 16:49) [61]


> Б   (07.05.10 16:11) [59]

> Не понял.

С творчеством К. Пруткова знаком?

> Anatoly Podgoretsky ©   (07.05.10 16:32) [60]

> БЛЮ

Ммм...да, наверное :)

--
Regards, LVT.


 
Б   (2010-05-07 17:52) [62]


> Anatoly Podgoretsky ©   (07.05.10 16:32) [60]
> > Б  (07.05.2010 16:11:59)  [59]
>
> БЛЮ


Ты о чем?



Страницы: 1 2 вся ветка

Текущий архив: 2010.08.27;
Скачать: CL | DM;

Наверх




Память: 0.58 MB
Время: 0.14 c
15-1268602039
Ega23
2010-03-15 00:27
2010.08.27
А давайте задачку порешаем?


15-1275942578
Юрий
2010-06-08 00:29
2010.08.27
С днем рождения ! 8 июня 2010 вторник


15-1266239343
Den
2010-02-15 16:09
2010.08.27
Узнать количество обращений к серверу


3-1239559848
Александр Степанов
2009-04-12 22:10
2010.08.27
Проблема с подключением к базе FireBird


15-1269466202
Юрий
2010-03-25 00:30
2010.08.27
С днем рождения ! 25 марта 2010 четверг