D2007: Initialise byte array in const record

[Nigel Thomas 35]

Using Delphi D2007.

 

I'm trying to do the following:

 

type
  FileSig = record
    Offset: Integer;
    arrSig: array of byte;
  end;

const
  sig1: FileSig =
    (Offset: 10;
     arrSig: array [0..2] of byte = ($00,$01,$02);
    )

But I can't: E2029 ')' expected but ',' found

 

In D10+ I can do:

const
  sig1: FileSig =
    (Offset: 10;
     arrSig: [$00,$01,$02];
    )

Is there a way I can do similar in D2007?

[JonRobertson 72]

27 minutes ago, Nigel Thomas said:

But I can't: E2029 ')' expected but ',' found

What do you get when you try

const
  sig1: FileSig =
    (Offset: 10;
     arrSig: [$00,$01,$02];
    )

in D2007?

[Nigel Thomas 35]

3 minutes ago, JonRobertson said:

What do you get when you try

const
  sig1: FileSig =
    (Offset: 10;
     arrSig: [$00,$01,$02];
    )

in D2007?

E2010 incompatible types: 'dynamic array' and 'Set'

[Lars Fosdal 1792]

Replace the brackets with parenthesis?

[pmcgee 10]

1 hour ago, Lars Fosdal said:

Replace the brackets with parenthesis?

^

 

I don't have D2007.  Your D10+ version works in freepascal using {$mode delphi}

 

and this works in fpc without it :

 

  sig2: FileSig =

    (Offset: 10;

     arrSig: ($00,$01,$02);

    );

[David Heffernan 2345]

Sorry, content remove, I'm talking nonsense

Edited April 23 by David Heffernan

[JohnLM 14]

This works for me in XE7. 

 

type
  FileSig = record
    Offset: Integer;
    text: string;
    arrSig: array of byte;
    arrStr: array of char;
  end;

const
  sig1: FileSig = ( offset:10;  text:'test';  arrsig:[65,66,67]; arrStr:['a','b','c'] );

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  memo1.Lines.Add(sig1.Offset.ToString());
  memo1.Lines.Add(sig1.text);
  memo1.Lines.Add( inttostr(sig1.arrSig[0]) );
  memo1.Lines.Add('[' + ansistring(sig1.arrSig) + ']');
  memo1.Lines.Add('[' + string(sig1.arrStr) +']');
end;

 

Output Results: 

 

10
test
65
[ABC]
[abc]

 

 

Edited April 23 by JohnLM
removed pstring()

[David Heffernan 2345]

Sorry, content removed, I'm talking nonsense.

Edited April 23 by David Heffernan

[David Heffernan 2345]

8 hours ago, Nigel Thomas said:

Using Delphi D2007.

 

I'm trying to do the following:

 

type
  FileSig = record
    Offset: Integer;
    arrSig: array of byte;
  end;

const
  sig1: FileSig =
    (Offset: 10;
     arrSig: array [0..2] of byte = ($00,$01,$02);
    )

But I can't: E2029 ')' expected but ',' found

 

In D10+ I can do:

const
  sig1: FileSig =
    (Offset: 10;
     arrSig: [$00,$01,$02];
    )

Is there a way I can do similar in D2007?

No, this is not possible in Delphi 2007. You can declare typed constants for fixed length arrays, but not dynamic arrays.

[Nigel Thomas 35]

5 hours ago, David Heffernan said:

No, this is not possible in Delphi 2007. You can declare typed constants for fixed length arrays, but not dynamic arrays.

Thanks. I've worked around it by declaring FileSig.arrSig as a fixed array, e.g: array [0..4] of byte, then I can set the const array using padding where necessary e.g. arrSig: ($00, $01, $02, $00, $00); By adding a SigLength to the FileSig type I will know what padded bytes I can remove when I come to using the array.