Использование одинаковых свойств разных записей.

[Alex Cones]

Существует TXXX и TYYY = record. Предположим, у них есть свойства TTT и RRR. Но кроме этих свойств у каждой из записей есть с десяток других, причем разных между собой.

Как использовать одинаковые свойства разных записей без дубляжа?

Пример:

 Function GetIndex(Num : Integer; Name : PAnsiChar; ElemType : Integer) : Integer; StdCall; Export; // Get Index of element.
 Var
  I : Integer;
 Begin
  Result := RESULT_NOT_EXISTS;                                                                      // Result initialization.
  Case ElemType Of                                                                                  // In case of...
   ELEM_TYPE_FORM    : For I := 0 To Length(Warehouse.Form) - 1 Do                                  // ...form,
                        If (Warehouse.Form[I].Exists) And                                           // If it exists and ...
                           (Warehouse.Form[I].Name = Name) Then Result := I;                             // have same name.
   ELEM_TYPE_TEXTURE : For I := 0 To Length(Warehouse.Texture) - 1 Do                               // ...texture,
                        If (Warehouse.Texture[I].Exists) And                                        // If it exists and ...
                           (Warehouse.Texture[I].Name = Name) Then Result := I;                          // have same name.
  End;
 End;

И таких "блоков" добавится еще с десяток. Не хотелос бы функцию раздувать.

[SNUPY]

А может лучше решить классами все?
типо

TT =class
public
 TTT,RRR: variant;
end;
TXXX = class (TT)
public
 // другие параметры
end;

TYYY = class (TT)
public
 // другие параметры
end;

[Alex Cones]

Использование классов в данном проекте не оправдано.

[JTG]

Типа Warehouse.<параметр>.Exists? Неа, никак.

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

Form := TForm(Pointer);
Texture := TTexture(PointerWithOffset);
--
А не, так тоже нельзя, инвалид тайпкаст.
С записями точно никак.

[Alex Cones]

Жаль... Придется быдлокодить.

[Serge_Bliznykov]

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

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

Угу. Точно. Так можно сделать:

type
 pTexture = ^Texture;
 pSquare = ^Square;
 Texture = record
    Name : string;
    Top, Left : integer;
    Image : pointer;
    size  : longint;
 end;
 Square = record
    Name : string;
    Top, Left : integer;
    Color : TColor;
    WidthLine : integer;
 end;

....

procedure SetCommon(var p : pointer; const parName : string;
                      parTop, parLeft : integer );
var pFake : PTexture;
begin
  pFake := p;
  pFake.Name := parName;
  pFake.Top := parTop;
  pFake.Left := parLeft;
end;


procedure TForm1.Button1Click(Sender: TObject);
var
  OneTexture : pTexture;
  OneSq : pSquare;
begin
  New(OneSq);
  New(OneTexture);
  SetCommon(pointer(OneSq), 'Proba', 1,100);
  SetCommon(pointer(OneTexture), 'Test of let common', 10,10);
  ShowMessage('sq Name = '+OneSq^.Name+' Texture Name = '+OneTexture^.Name);
end;

только я полностью, на 100% согласен с JTG, иначе, как грязными, подобные методы не назовёшь...
Это уже всё равно как брать указатель и писать БАЙТЫ по заданному смещению.
Шаг вправо, шаг влево - и всё рухнет с грохотом...

короче, Alex, использовать хакерские подходы в реальной большой задаче не рекомендую, а дальше - Вам решать...

[GreyScall]

Type
      TR=Packed Record
            TType: Byte;
            TTT: String;
            RRR: Integer;
            Case Integer Of
                  0:
                        (If_Type0_A, If_Type0_B, If_Type0_C: Integer);
                  1:
                        (If_Type1_A, If_Type1_B, If_Type1_C, If_Type1_D: Byte);
            End;

Var TR1: Array [0..3] Of TR;

Procedure TForm1.FormCreate(Sender: TObject);
Var i: Integer;
Begin
Randomize;
For i:=0 To 3 Do
      Begin
      TR1[i].TType:=Random(3); // 2);
      TR1[i].RRR:=i;
      Case TR1[i].TType Of
            0:
                  Begin
                  TR1[i].TTT:='Button';
                  TR1[i].If_Type0_A:=Random(100);
                  TR1[i].If_Type0_B:=Random(100);
                  TR1[i].If_Type0_C:=Random(100);
                  End;
            1:
                  Begin
                  TR1[i].TTT:='Image';
                  TR1[i].If_Type1_A:=Random(100);
                  TR1[i].If_Type1_B:=Random(100);
                  TR1[i].If_Type1_C:=Random(100);
                  TR1[i].If_Type1_D:=Random(100);
                  End;
            End;
      End;
End;

Procedure TForm1.Button1Click(Sender: TObject);
Var i: Integer; S: String;
Begin
S:='';
For i:=0 To 3 Do
      Begin
      S:=S+IntToStr(TR1[i].RRR)+') ';
      Case TR1[i].TType Of
            0:
                  S:=S+TR1[i].TTT+':'#9+IntToStr(TR1[i].If_Type0_A)+', '+IntToStr(TR1[i].If_Type0_B)+', '+IntToStr(TR1[i].If_Type0_C);
            1:
                  S:=S+TR1[i].TTT+':'#9+IntToStr(TR1[i].If_Type1_A)+', '+IntToStr(TR1[i].If_Type1_B)+', '+IntToStr(TR1[i].If_Type1_C)+', '+IntToStr(TR1[i].If_Type1_D);
            Else
                  S:=S+'UnKnown Type';
            End;
      S:=S+#13#10;
      End;
ShowMessage(S);
End;

P.S. SizeOf(TR)==21