Почему данный код записывает файл размером в 7 байт:
Type
TA = array of string;
Var
it:integer;
f:file;
A:^TA;
begin
New(A);
SetLength(A^,7);
A^[0]:='Понедельник';
A^[1]:='Вторник';
A^[2]:='Среда';
A^[3]:='Четверг';
A^[4]:='Пятница';
A^[5]:='Суббота';
A^[6]:='Воскресенья';
AssignFile(f,GetCurrentDir+'\1.tmp');
Rewrite(f,1);
BlockWrite(F,A,7);
CloseFile(F);
end;
Читаю(Выводит то что и должно):
Type
TA = array of string;
Var
it:integer;
f:file;
A:^TA;
begin
New(A);
SetLength(A^,7);
for it:=0 to 6 do
A^[it]:='';
AssignFile(f,GetCurrentDir+'\1.t');
Reset(f,1);
BlockRead(F,A,7);
ShowMessage(a^[0]);
CloseFile(F);
end;
!!!!!!!!А данный код записывает файл размером в 28 байт:
Type
TA = array[0..6] of string;
Var
it:integer;
f:file;
A:TA;
s:string;
begin
A[0]:='Понедельник';
A[1]:='Вторник';
A[2]:='Среда';
A[3]:='Четверг';
A[4]:='Пятница';
A[5]:='Суббота';
A[6]:='Воскресенья';
AssignFile(f,GetCurrentDir+'\1.t');
Rewrite(f,1);
BlockWrite(F,A,sizeof(A));
ShowMessage(inttostr(sizeof(A)));
CloseFile(F);
end;
Читается тоже все корректно:
Type
TA = array[0..6] of string;
Var
it:integer;
f:file;
A:TA;
begin
A[0]:='';
A[1]:='';
A[2]:='';
A[3]:='';
A[4]:='';
A[5]:='';
A[6]:='';
AssignFile(f,GetCurrentDir+'\1.t');
Reset(f,1);
BlockRead(F,A,sizeof(A));
ShowMessage(a[0]);
CloseFile(F);
end;
Объясните причину пожайлуста! |
