Сложная структура записи (record+array)

[Alex Cones]

Знач запись примерно такая:

TDetail = record
             ...
             bla-bla-bla
             ...
             Junction = record
                            JCount:Byte;
                            JType:Array ... of Byte;
                            JOccupied:Array ... of Boolean
                            ... 
                            bla-bla-bla
             End;
End;

Так вот, что разрешается записать в Array ... of Byte вместо многоточия, чтоб примерно так:

Array[1..Count] of Byte;

или на крайняк

Array of Byte;

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

P.S. Идея эта: http://www.programmersforum.ru/showp...29&postcount=6
P.P.S. Или может классами поиграться, а там сделать подобие SL:=TStringList.Create;, где и устанавливать длину массива.

[raxp]

думаю выделить изначально столько-то памяти под Array[1..Count] of Byte будет проще, сразу будет ясно сколько жрет, только весь вопрос сколько выделить...

хранить описание объектов типа танчики что-ли?

[Alex Cones]

Не, хранить описание деталей. Типа детали между собой соединяются "узлами", а кол-во узлов неизвестно, пока деталь не считана (например из файла), в полной версии этой структуры (наверху сокращенная) еще хранятся имя детали, подсоединенной к каждому узлу и пр. и пр.

Array[1..Count] of Byte будет проще

Я тоже думаю, что это оптимальный вариант, но вопрос в том, будет ли это адекватно? Ведь хоть Count и описан перед массивом, значения он пока не имеет.

[Stilet]

Или может классами поиграться,

Светлая мысль. Воплоти ее в жизнь

[raxp]

Типа детали между собой соединяются "узлами", а кол-во узлов неизвестно, пока деталь не считана

ага, так и думал

но вопрос в том, будет ли это адекватно? Ведь хоть Count и описан перед массивом, значения он пока не имеет

ругается пока константой не сделал, значит число узлов деталей должно быть четкое кол-во

[Alex Cones]

Светлая мысль. Воплоти ее в жизнь

Еслиб я еще помнил классы Ну ничего, найду.

ругается пока константой не сделал

Я так и думал, придется делать неопределенный массив.

Тему пока не закрывайте, plz, мож что еще понадобится.

Ложная тревога, все исправил.
Delete, plz.

[Stilet]

Я бы так делал :

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
  Type
      TJunction = record
                 JType             :Array of Byte;    {Ex.: 1 - bolt, 2 - glue}
                 JOccupied         :Array of Boolean; {Occupied? Yes\No       }
                 JOccupiedBy       :Array of Integer; {ID of another detail   }
                 JOccupiedIn       :Array of Byte;    {Junction of an. detail }
      End;

 TDetail = Class(TObject)
    private
    FJCount: integer;
    procedure SetJCount(const Value: integer);
    protected
    public
      Mass         :Integer;                          {Ex.: 12 500 g.         }
      Cost         :Integer;                          {Ex.: 12 000 $          }
      Name         :String[20];                       {Ex.: 'Платформа T3'    }
      ID           :Integer;                          {Ex.: 5                 }
      Junction:TJunction;
     Property JCount:integer read FJCount write SetJCount;
      constructor Create;
  end;
{ TDetail }

constructor TDetail.Create;
begin

end;

procedure TDetail.SetJCount(const Value: integer);
begin
  FJCount := Value;
  SetLength(Junction.JType,FJCount);
  SetLength(Junction.JOccupied,FJCount);
  SetLength(Junction.JOccupiedBy,FJCount);
  SetLength(Junction.JOccupiedIn,FJCount);
  SetLength(Junction.JType,FJCount);

end;

var j:TDetail;
begin
 j:=TDetail.Create;
 j.JCount:=10;
 j.Junction.JType[3]:=2;
 j.Free;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Т.е. изменение значения в JCount повлечет за собой пертурбации массивов.

[raxp]

убрал вложенный record наружу и сделал наследование

[Alex Cones]

Знач создал вот так:

unit UnitClass;

interface

Uses
 SysUtils, Graphics;

Type
 TJunction = record
                 JCount            :Byte;             {Ex.: 16                }
                 JType             :Array of Byte;    {Ex.: 1 - bolt, 2 - glue}
                 JOccupied         :Array of Boolean; {Occupied? Yes\No       }
                 JOccupiedBy       :Array of Integer; {ID of another detail   }
                 JOccupiedIn       :Array of Byte;    {Junction of an. detail }
      End;
 TDetail = Class(TObject)
    private
    protected
    public
      Mass         :Integer;                          {Ex.: 12 500 g.         }
      Cost         :Integer;                          {Ex.: 12 000 $          }
      Name         :String[20];                       {Ex.: 'Платформа T3'    }
      ID           :Integer;                          {Ex.: 5                 }
      Source       :Array[0..15] of TBitMap;          {Animation images       }
      Junction     :TJunction;
      constructor Create;
  end;



implementation

Constructor TDetail.Create;
 Begin
  SetLength(Self.Junction.JType,Self.Junction.JCount);
  SetLength(Self.Junction.JOccupied,Self.Junction.JCount);
  SetLength(Self.Junction.JOccupiedBy,Self.Junction.JCount);
  SetLength(Self.Junction.JOccupiedIn,Self.Junction.JCount);
  SetLength(Self.Junction.JType,Self.Junction.JCount);
 End;

end.

unit UNTMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, UnitClass, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  B:TBitMap;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
Var Det:TDetail;
begin
 Det.Junction.JCount:=5;
 Det.Create;
 Det.Junction.JType[1]:=2;
 Button1.Caption:=IntToStr(Det.Junction.JType[1]);
end;

end.

Но меня ругают, мол низзя Det.Junction.JType[1]:=2;!


О_о сколько ответов

[Stilet]

Но меня ругают,

Внимательно смотрим мой пример.

О_о сколько ответов

Сам же просил )