нетипизированный файл

[amandra]

Необходимо записать и потом прочитать нетипизированный файл
типа данных
Ttest = record
N1 : string;
n2 : integer;
end;

записываю в файл

var FName : string;
DFile : file;
asize : integer;
test : Ttest;
begin
test.N1 := 'Строка'; test.N2 := 10;
assignFile(DFile,FName);
Rewrite(DFile);
asize := sizeOf(test);
//записываю длину данных
BlockWrite(DFile,asize,sizeof(asize ));
//сами данные
BlockWrite(DFile,test,sizeof(test)) ;
CloseFile(DFile);


читаю из файла
var FName : string;
DFile : file;
asize : integer;
test : Ttest;
begin
fName := fmMain.OpenD.FileName;
assignFile(DFile,FName);
Reset(DFile);
//читаю сколько данных лежит
BlockRead(DFile,asize,4);
//читаю сами данные
Blockread(DFile,test,asize);
CloseFile(DFile);
end

первый раз записал, потом прочитал - все нормально
пытаюсь снова ,не закрывая программу, прочитать файл - вываливается акцесс виалейшн
с чего это вдруг? в чем может быть проблема?

[Ozerich]

Ttest = record
N1 : string[255];
n2 : integer;
end;

[amandra]

это не важно, так как я записываю в заголовок файла сколько надо читать потом

[amandra]

и тем более выдает ошибку IO error 1784 при записи данных
//сами данные
BlockWrite(DFile,test,sizeof(test)) ;

[Ozerich]

А ты попробуй сделать как я сказал
http://programmersforum.ru/showthread.php?t=23495

[amandra]

другой вариант
типа данных
TLoadMess = record
PartnerFrom : string;
DataOut : TDate;
Trip : string;
Doc : string;
Price : currency;
placeTo : string;
PartnerTo : string;
DateIn : TDate;
TimeIn : TTime;
AllMass : currency;
AllPlace : integer;
CountOut : integer;
NumSeal : string;
discription : string;
end;

пищу в файл сначала размер структуры, потом сами данные
[I]mem := TMemoryStream.Create;
asize := sizeof(LoadMess);
mem.Write(asize,4);
mem.Write(LoadMess,asize);
mem.SaveToFile(FName);
mem.Free;[I]
читаю
mem := TMemoryStream.Create;
mem.LoadFromFile(fname);
mem.Read(asize,4);
mem.Read(LoadMess,asize);
mem.Free;
после прочтения в loadmess белиберда...
что не так сделал?

[amandra]

всем спасибо, разобрался
как Ozerich и говорил, надо указывать длину строки при объявлении рекорда, либо в файл писать сколько строка занимает места