Объявить константу-массив

← →
ekto © (2008-05-20 12:28) [0]

Всем доброго времени суток.
Нужно сделать следующее:

const
TMyType = array [9..26] of string = (...);

но так ругается компил.
Как подобное можно реализовать?

← →
Reindeer Moss Eater © (2008-05-20 12:30) [1]

двоеточие вместо равно

← →
MBo © (2008-05-20 12:30) [2]

в справке есть примеры Array constants

← →
Юрий Зотов © (2008-05-20 12:31) [3]

Тип не может содержать значений, их может содержать переменная или константв данного типа.

const
MyStringArray: array [9..26] of string = ("мама", "мыла", "раму", ...);

← →
Palladin © (2008-05-20 12:31) [4]

и typed constants тоже

← →
ekto © (2008-05-20 12:33) [5]

спасибо всем.

← →
ekto © (2008-05-20 12:36) [6]

а вот так:
const
MyStringArray: array [0, 9..26] of string = ("мама", "мыла", "раму", ...);

?

← →
Palladin © (2008-05-20 12:41) [7]

совет обратиться к справке ты конечно мудро проигнорировал

← →
Reindeer Moss Eater © (2008-05-20 12:45) [8]

а вот так:
const
MyStringArray: array [0, 9..26] of string = ("мама", "мыла", "раму", ...);

а вот этак?
MyStringArray: array ["еще одна абракадабка"] of string = ("кто-то", "парит", "моск", ...);

← →
Юрий Зотов © (2008-05-20 13:07) [9]

> ekto © (20.05.08 12:36) [6]

> а вот так:
> const
> MyStringArray: array [0, 9..26] of string = ("мама", "мыла", "раму", ...);

Прокатит, если Вы сумеете найти в справке такой цикл прохода по массиву:
for i := 0, 9..26 do ...

← →
Gydvin © (2008-05-20 13:47) [10]

раз уж пошли такие вопросы, то и я задам, для общего развития. Как объявить массив-константу TPoint? А то приходится объявлять вместо него int64 и юзать через приведение типов...
Оговорюсь сразу. ПО логике должно быть так ((0,1) , (0,2)). Ан нет :(

← →
Gydvin © (2008-05-20 13:48) [11]

либо наполнять динамически

← →
Palladin © (2008-05-20 13:48) [12]

> Gydvin © (20.05.08 13:47) [10]

record constants + F1

← →
Palladin © (2008-05-20 13:50) [13]

> ПО логике должно быть так ((0,1) , (0,2)).

странная у тебя логика... по логике книжки по паскалю читать нужно...

((X:0; Y:10),(X:60; Y:10))

ну и гемор... О_о

гемор это когда ты int64 объявляешь...

const DummyPoint : array[boolean] of Longint = (MyLongInt1,MyLongInt2);

var PP : PPoint;
begin
pp := @DummyPoint;
end;

> Reindeer Moss Eater © (20.05.08 14:10) [16]

Я так извращалсо ;0)

procedure TForm1.Button1Click(Sender: TObject); const ar:array [0..3]of Int64 = (42949672970,42949673010,214748364850,214748364810); Type TArrayInt64ToPoint = array [0..3]of TPoint; PArrayInt64ToPoint = ^TArrayInt64ToPoint; begin canvas.Polygon(PArrayInt64ToPoint(@ar)^); end;

> ((X:0; Y:10),(X:60; Y:10))

неудобная конструкция и имена неопустишь и местами не поменяешь. (

Ну да ладно

> Gydvin (20.05.2008 13:47:10) [10]

Ты тоже игнорируешь совет про справку.

Только сейчас заметил [2] - исправлюсь :)

В справке до этого искал, но видать, не то.

Объявить константу-массив Найти похожие ветки