[Помидоркин]

Если массив.. объявлен... в разделе переменных модуля, то одновременно с объявлением массива можно выполнить его инициализацию, т. е. присвоить начальные значения элементам массива.

Код:

Team: array[1..5] of String[10]=('Зенит','Динамо','Спартак','Ротор','СКА');

здесь все ясно, а если массив записей и отдельным полям записи нужно присвоить значения?

Код:

type

  TValueType = (vtBeer,vtLiters,vtMoney);

  TbgCell = record
   Rect: TRect;
   toEdit: Boolean;
   Case ValueType: TValueType of
    vtBeer: (Beer: String[16]);
    vtLiters: (Liters: Integer);
    vtMoney:(Money: Currency);
  end;

  TbgRow = array[0..12] of TbgCell;

например: в массиве типа TbgRow у элемента с индексом [0] значение поля toEdit всегда должно быть False, а поле ValueType всегда vtFuel, второй элемент: <массив типа TbgRow>[1].toEdit:= False; <массив типа TbgRow>[1].ValueType:= vtMoney; и т.д.
Возможно ли одновременно с объявлением массива записей присвоить начальные значения полей элемента?

[Alegun]

Сообщение от Помидоркин

...в массиве типа TbgRow у элемента с индексом [0] значение поля toEdit всегда должно быть False, а поле ValueType всегда vtFuel, второй элемент: <массив типа TbgRow>[1].toEdit:= False; <массив типа TbgRow>[1].ValueType:= vtMoney; и т.д.
Возможно ли одновременно с объявлением массива записей присвоить начальные значения полей элемента?

Наверное возможно (хотя для массива, да ещё и записей наверное на уровне объявления последних), но по-старинке тоже не плохо должно получаться

Код:

...
var
i: integer;
begin

 for i:= Low(TbgRow) to High(TbgRow) do
   with TbgRow[i] do
    begin
     toEdit:= false;
     ValueType:= vtFuel;
    end;

   end;
...

всё равно ведь по полям бегать наверное нужно


З.Ы. А кстати, в вашем списке газолинчик как раз и отсутствует

[lmikle]

Попробовал бы сам поискать, что-ли...

Код:

type person = record
     name:string;
     age: integer;
end;

const persons:array[1..2] of person = (
      (name:'vanya';age:10),
      (name:'petya';age:20));

[Alegun]

Я тоже так начал копать, но дойдя до

Код:

...
TbgRow: array[0..12] of TbgCell =
   ((toEdit: false; ValueType: vtFuel),(),(),(),(),(),(),(),(),(),(),(),());
...

забил, больно много букофф, не рационально слегка, циклом проще

[Помидоркин]

Сообщение от lmikle

Попробовал бы сам поискать, что-ли...

Пробовал, не получилось. Огромное спасибо.

Сообщение от Alegun

больно много букофф, не рационально слегка, циклом проще

не выйдет в цикле, они все разные, зато потом Rect присваивать можно будет в цикле

А не подойдет.

Код:

const persons:array[1..2] of person = (...

Это константа, можно, видимо, создать переменную, но мне нужен тип от которого потом можно создавать экземпляры.

Код:

type
....
  TbgRow = array[0..12] of TbgCell = ((toEdit:False;ValueType:vtFuel),

совершенно очевидно, что такое объявление синтаксически неправлильно.
Видимо придется "по-старинке"

[Alegun]

Сообщение от Помидоркин

А не подойдет...

Так вы можете за(варить)дать один массив как образец, а дальше как по шаблону его значения присваивать другим "наследникам"

Код:

...
var
 i: integer;
 bg1, bg2 : array[0..12] of TbgCell;
begin
 for i:= Low(TbgRow) to High(TbgRow) do 
 begin
  bg1[i]:= TbgRow[i];
  bg2[i]:= TbgRow[i];
 end;
end;
...

[Помидоркин]

Сообщение от Alegun

за(варить)дать ...

гы

те же штаны только застежка сзади,

Код:

  type
   TBaseGrid = class(TCustomControl)
   private
    ...
    FGrid: array of TbgRow;
    ...

Код:

constructor TBaseGrid.Create2(AOwner:TComponent; BData: TBData);
begin
 inherited Create(AOwner);
....
 SetLength(FGrid, BData[0].Count);
 for i:= 0 to Length(FGrid)-1 do
 begin
  FGrid[i,0].toEdit:= False;
  FGrid[i,0].ValueType:= vtBeer;

  FGrid[i,1].toEdit:= False;
  FGrid[i,1].ValueType:= vtPrice;

  FGrid[i,2].toEdit:= True;
  FGrid[i,2].ValueType:= vtLiters;
  //... и т.д.
 end;
end;

[cotseec]

а если так

Код:

type
 
  TValueType = (vtBeer,vtLiters,vtMoney);
 
  TbgCell = record
   Rect: TRect;
   toEdit: Boolean;
   Case ValueType: TValueType of
    vtBeer: (Beer: String[16]);
    vtLiters: (Liters: Integer);
    vtMoney:(Money: Currency);
  public
    procedure Init(ValType: TValueType);
  end;
 
  TbgRow = array[0..12] of TbgCell;
...
procedure TbgCell.Init(ValType: TValueType);
begin
   FillChar(Self, SizeOf(TbgCell), 0); // инициализируем все нулем
   ValueType := ValType;
end;
...
constructor TBaseGrid.Create2(AOwner:TComponent; BData: TBData);
begin
 inherited Create(AOwner);
....
 SetLength(FGrid, BData[0].Count);
 for i:= 0 to Length(FGrid)-1 do
 begin
  FGrid[i,0].Init (vtBeer); // вызываем как метод класса
 
  FGrid[i,1].Init(vtPrice);
 
  FGrid[i,2].Init(vtLiters);
  //... и т.д.
 end;
end;

[Помидоркин]

Сообщение от cotseec

а если так...

Код:

...
FGrid[i,0].Init (vtBeer);
...

По-моему тоже самое

Код:

FGrid[i,0].ValueType:= vtBeer;

только не надо прописывать процедуру

Понять, что хочет заказчик - бесценно, ведь он платит MasterCard