Код: Выделить всё
type
trec1 = record
ScanType: array[1..4] of Char;
Nranges: Integer;
ScanName: array[1..32] of Char;
comment: array[1..128] of Char;
DateTime: array[1..20] of Char;
end;
trec2 = record
ScanType: array[1..4] of Char;
Nranges: Integer;
ScanName: array[1..32] of Char;
comment: array[1..128] of Char;
DateTime: array[1..20] of Char;
anode: array[1..2] of Char;
end;
....
var
size1, size2: integer;
x1: trec1;
x2: trec2;
...
size1:= sizeof(x1);
size2:= sizeof(x2);
Почему size1 = 188, a size2 = 192, а не 190? В Delphi7 та же хрень! Ничего не понимаю!
