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

[Alex Cones]

Полностью скопировал код, но...

P.S. Вернусь вечером...

[Stilet]

Alex Cones

Странно... а у меня запускается... И что удивительно работает

[Alex Cones]

Так, ладно, оставим классы до лучших времен. Поехали по записям. Вот я тут оч. хорошее свойство у записей нашел: Case

 TFruit = Record
    name : string[20];
    Case isRound : Boolean of // Выберите, как отобразить следующий раздел
      True  :
        (diameter : Single);  // Отображение той же самой памяти как длина
      False :
        (length   : Single;   // Отображение той же самой памяти как диаметр
         width    : Single);
  end;

http://delphibasics.ru/Record.php
И мне вот, что не понятно: вот система арендовала память под две такие записи. Предположим одна будет банан, другая яблоко. Яблоко - круглое, т.е. IsRound - TRUE, в записи следующее:

name :='Яблоко___________';(20 байт)
isRound:=TRUE;                    (1 байт)
diametr:=1                           (4 байта)
Итого - 25 байт
Банан:
name...                               (20 байт)
IsRound:=False                     (1 байт)
Length:=2                           (4 байта)
Width:=4                             (4 байта)
Итого - 29 байт.

И что? Система смотрит в будущее и пророчествует, сколько памяти занимать?

[evg_m]

Система смотрит в будущее и пророчествует, сколько памяти занимать

Система не будет крохоборствовать, ей известно что памяти потребуется НЕ БОЛЬШЕ чем 29 байт, столько она и отведет.

[Alex Cones]

А к чему тогда в комментах это:?

// Отображение той же самой памяти как диаметр
// Отображение той же самой памяти как длина

[Пепел Феникса]

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

[Stilet]

Вот я тут оч. хорошее свойство у записей нашел: Case

Я так и не понял в чем преимущество такого чудизма
Мне больше нравится Variant, хотя он и имеет под собой основу такой вариантной переменной.

[OCTAGRAM]

В современных Delphi (2006+) у записей тоже могут быть свойства.

[Alex Cones]

В современных Delphi

К сожалению система не тянет.

Проблема:

unit UNTVars;

interface

Uses
 SysUtils,Graphics;
Type
 TJunction = record
             Occupied       :Boolean;   {Занят ли узел Да/Нет                  }
             OccupiedBy     :Byte;      {ID элемента, который занял данный узел}
             OccupiedIn     :Byte;      {№ узла элемента, который занял        }
             X              :Integer;   {Х координата соединения               }
             Y              :Integer;   {Y координата соединения               }
             JType          :Byte;      {Тип соединения (клей, болты и пр.)    }
 End;
 TDetail   = record
             Name           :String[20];{Имя детали. Ex.:'Платформа T3'        }
             Mass           :Integer;   {Масса  в граммах                      }
             Cost           :Integer;   {Стоимость детали в рублях             }
             ID             :Integer;   {№ детали в объекте                    }
             JunCount       :Byte;      {Количество узлов                      }
             Junction       :Array of TJunction; {Узлы                         }
             Source         :Array[0..15] of TBitMap; {Анимация                }
 End;
implementation

Procedure CreateDetail(Detail:TDetail);
 Begin
  SetLength(Detail.Junction,Detail.JunCount);
 End;

Procedure LoadDetail(SourceFile :String; Var Detail:TDetail);
 Var
  F:TextFile;
  S:String;
  I:Integer;
 Begin
  AssignFile(F,SourceFile);
  Reset(F);
  ReadLn(F,S);
  Detail.Name:=S;
  ReadLn(F,S);
  Detail.Mass:=StrToInt(S);
  ReadLn(F,S);
  Detail.Cost:=StrToInt(S);
  ReadLn(F,S);
  Detail.JunCount:=StrToInt(S);
  CreateDetail(Detail);
  For I:=0 to Detail.JunCount-1 do
   Begin
    ReadLn(F,S);
    Detail.Junction[I].X:=StrToInt(S);
    ReadLn(F,S);
    Detail.Junction[I].Y:=StrToInt(S);
    ReadLn(F,S);
    Detail.Junction[I].JType:=StrToInt(S);
   End;
  CloseFile(F);
 End;

end.

unit UNTMain;

interface

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

type
  TFRMMain = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FRMMain: TFRMMain;
  CDir   : String;
  Detail1,Detail2:TDetail;
implementation

{$R *.dfm}

procedure TFRMMain.Button1Click(Sender: TObject);
begin
 CDir:=ExtractFilePath(ParamStr(0));
 LoadDetail(CDir+'GameData\Objects\000.obj',Detail1);
end;

end.

Undeclared Idetifier...

О_о

[Пепел Феникса]

чтото не вижу заголовков ваших процедур в интерфесном разделе

unit UNTVars;

interface

Uses
 SysUtils,Graphics;
Type
 TJunction = record
             Occupied       :Boolean;   {Занят ли узел Да/Нет                  }
             OccupiedBy     :Byte;      {ID элемента, который занял данный узел}
             OccupiedIn     :Byte;      {№ узла элемента, который занял        }
             X              :Integer;   {Х координата соединения               }
             Y              :Integer;   {Y координата соединения               }
             JType          :Byte;      {Тип соединения (клей, болты и пр.)    }
 End;
 TDetail   = record
             Name           :String[20];{Имя детали. Ex.:'Платформа T3'        }
             Mass           :Integer;   {Масса  в граммах                      }
             Cost           :Integer;   {Стоимость детали в рублях             }
             ID             :Integer;   {№ детали в объекте                    }
             JunCount       :Byte;      {Количество узлов                      }
             Junction       :Array of TJunction; {Узлы                         }
             Source         :Array[0..15] of TBitMap; {Анимация                }
 End;

Procedure CreateDetail(Detail:TDetail);
Procedure LoadDetail(SourceFile :String; Var Detail:TDetail);

implementation

Procedure CreateDetail(Detail:TDetail);
 Begin
  SetLength(Detail.Junction,Detail.JunCount);
 End;

Procedure LoadDetail(SourceFile :String; Var Detail:TDetail);
 Var
  F:TextFile;
  S:String;
  I:Integer;
 Begin
  AssignFile(F,SourceFile);
  Reset(F);
  ReadLn(F,S);
  Detail.Name:=S;
  ReadLn(F,S);
  Detail.Mass:=StrToInt(S);
  ReadLn(F,S);
  Detail.Cost:=StrToInt(S);
  ReadLn(F,S);
  Detail.JunCount:=StrToInt(S);
  CreateDetail(Detail);
  For I:=0 to Detail.JunCount-1 do
   Begin
    ReadLn(F,S);
    Detail.Junction[i].X:=StrToInt(S);
    ReadLn(F,S);
    Detail.Junction[i].Y:=StrToInt(S);
    ReadLn(F,S);
    Detail.Junction[i].JType:=StrToInt(S);
   End;
  CloseFile(F);
 End;

end.