Record-Konstanten in Record-Definition verwenden

[himitsu]

Ist es eigentlich möglich eine Record-Konstante aus der Record-Definition zu erstellen

Delphi-Quellcode:

Type 
  TMyRec= packed Record
    Data: Array[0..15] of LongWord;
    Const DataSize = Length(Data);  // Data sei nicht definiert
    ...
  End;

oder innerhalb der Record-Definition zu verwenden?

Delphi-Quellcode:

Type 
  TMyRec = packed Record
    Const DataSize = 16;
    Var Data: Array[0..DataSize-1] of LongWord;  // DataSize sei nicht definiert
    ...
  End;

ich wollte der Eindeutigkeit halber für mehrere Bereiche eines Record's die selbe Konstannte verwenden.

Spezielles Problem ist Follgendes:
ich wollte keine globale Konstannte erstellen und auch nicht ständig eine Lokale definieren

dennoch brauch in für ASM eine Konstante, denn sowas geht ja nicht

Delphi-Quellcode:

ASM
  MOV ECX, Length(Data)
End;

[Apollonius]

Doch, das geht. 8)

Delphi-Quellcode:

asm
  MOV ECX, TYPE Data
end;

[himitsu]

immer schön was Neues kennenzulernen

sowas geht aber nicht?
MOV ECX, Length(Data) (hatte ausversehn oben SizeOf statt Length geschrieben)

Delphi-Quellcode:

function abc;
asm
  MOV ECX, TYPE &Data
  SHR ECX, 2
end;

dem zöge ich dann 'ne lokale Konstante vor

Delphi-Quellcode:

function abc;
const DataSize = Length(Data)
asm
  MOV ECX, &DataSize
end;

nja, zumindestens ergibt das eine Lösung für Problemchen an anderer Stelle,


aber es würde mich dennoch interessieren ob soetwas möglich wäre.

[Apollonius]

Etwas unelegant:

Delphi-Quellcode:

asm
  mov ecx, type Data / type Data[0]
end;

[himitsu]

gut, es ist 'ne Lösung, aber wirklich nicht grad "übersichtlich/selbsterklärend"