<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=utf-8">
</head>
<body text="#000000" bgcolor="#FFFFFF">
<p>Mixing dynamic and static array does not work properly yet.<br>
<br>
I compiled the following code with the latest trunk of FPC
(revision 39062):<br>
</p>
<p><br>
</p>
<p><font color="#009900">procedure Ausgabe(a: array of byte);<br>
var<br>
i: integer;<br>
begin<br>
for i := 0 to Length(a) - 1 do begin<br>
Write(a[i]: 4);<br>
end;<br>
WriteLn();<br>
end;<br>
<br>
procedure TForm1.Button1Click(Sender: TObject);<br>
var<br>
a, b, c: array of byte;<br>
d: array[0..2] of byte = (6, 7, 8);<br>
begin<br>
a := [1, 2, 3];<br>
Ausgabe(a); // io.<br>
<br>
b := a + d + [123, 222];<br>
Ausgabe(b); // error --> Output: 1 2 3 123
222 123 222<br>
<br>
b := a + [123, 222];<br>
c := b + b;<br>
Ausgabe(c); // io.<br>
Delete(c, 2, 2);<br>
Ausgabe(c); // io.<br>
<br>
c := Concat(a, d, a); // io.<br>
Ausgabe(c);<br>
<br>
c := a + d + a; // io.<br>
Ausgabe(c);<br>
<br>
<br>
// d := [5, 6, 7]; // geht nicht<br>
end; </font><br>
</p>
</body>
</html>