mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2026-01-25 09:58:12 +01:00
1244cdff70
using less than 8 bits per element the same as regular char arrays as far
as automatic type conversions are concerned (they have to be explicitly
packed/unpacked) (mantis #24013)
git-svn-id: trunk@23739 -
14 lines
229 B
ObjectPascal
14 lines
229 B
ObjectPascal
{ %fail }
|
|
|
|
var
|
|
astr: bitpacked array[1..5] of #0..#127;
|
|
str: string;
|
|
i: integer;
|
|
|
|
begin
|
|
writeln('Assigning a bitpacked array to a string variable:');
|
|
for i := 1 to 5 do
|
|
astr[i] := 'a';
|
|
str := astr;
|
|
end.
|