Форум "Delphi"

Паскаль, Делфи

#0 Старый маразматик © 07.11.06 10:42:59 - 07.11.06 12:19:10

а можно объявить двухмерный массив констант?

типа {{1,2},{3,4},{5,6}}. как это будет выглядеть? а то у меня правильнописание хромает в этом месте

#1 Чехонте 07.11.06 10:47:58

const
a:array[1..2] of
array[1..3] of byte=(
(1,2,3),
(4,5,6)
);

#2 Старый маразматик © 07.11.06 10:55:50

а! сенкс! помню, где-то видел, но как-то не нужно было. а тут как раз такая затыка, шо масивом как раз красиво решаецца. пока вариантов мало, потому ифами обошелся, но как-то неэстетично и кода много.

усложним задачу. а если массив типа record, как тогда? почему record - если разные типы данных будут вдруг, ну там стринг и интегер.

#3 Чехонте 07.11.06 11:25:11

procedure TForm1.Button1Click(Sender: TObject);
type
recc=record
   a1:byte;
   b1:char;
   end;
const
a:array[1..2] of recc=(
  (a1:1;b1:'a'),
  (a1:5;b1:'b')
);
var
i:integer;

begin
for i:=1 to 2 do memo1.Lines.Add(inttostr(a[i].a1)+' '+a[i].b1);
end;

#4 Старый маразматик © 07.11.06 11:28:45

ух ты! вона как оно делается! никогда такого зверя не видел! во шо значит обрывочное образование...:(

#5 Чехонте 07.11.06 11:33:22

> (a1:1;b1:'a'),

это честно говоря сам забыл
в отладчике посмотрел представление :)

#6 Старый маразматик © 07.11.06 12:19:10

> в отладчике посмотрел

блин... а я до отладчмка не дотумкал. не, конечно я там массивы рекордов видел, но не знал, шо так можно оттуда дернуть

Написать ответ