Запись и чтение файла...

[Altera]

Привет всем!
Вот у меня проблема:
Есть

fTesting = record
   v1, v2, v3, v4, v5: string; v6, v7, v8, v9, v10: boolean;
   v11, v12, v13, v14, v15: byte;
   end;

testing: array of fTesting;

В ходе работы проги значания меняйться и всё OK. Короче, как мне записать testing в файл, а потом прочитать его?

Делаю так:

function loadList: boolean;
var
f: file;
f_way: string;
begin
   result := false;
   f_way := extractFilePath(application.ExeName)+'_work\file';
   if not fileExists(f_way) then exit;
   assignFile(f, f_way);
   reset(f);
   blockRead(f, testing, 1);
   closeFile(f);
   result := true;
end;

procedure saveList: boolean;
var
f: file;
begin
   assignFile(f, extractFilePath(application.ExeName)+'_work\file');
   reWrite(f);
   blockWrite(f, testing, 1);
   closeFile(f);
end;

После записи появляеться файл, размером 128 байт. После чтения ничего не происходит, но когда добавляю новую запись в масив происходит ошибка...

setLength(testing, high(testing));

Может перед чтением надо установить размер динамического масива?

Помогите плиз...

[Stilet]

хм. тут два выхода:
1 - образмерить строки (всмысле: v1, v2, v3, v4, v5: string[255]
2 - Кажый элемент записи писать в файл отдельно, и файл пусть будет нетипированный.

[B_N]

И кроме того, в reset и rewrite нужно передавать размер записи.

[Altera]

Сообщение от Stilet

хм. тут два выхода:
1 - образмерить строки (всмысле: v1, v2, v3, v4, v5: string[255]
2 - Кажый элемент записи писать в файл отдельно, и файл пусть будет нетипированный.

А больше 255 никак?

Сообщение от B_N

И кроме того, в reset и rewrite нужно передавать размер записи.

sizeOf(testing)?

[Altera]

Сделал через ini файл... Пашет

[Alter]

Например:

type TMasStr = array[0..255] of string[255];

Только вырастит объём файла.

fTesting = record  
   v1, v2, v3, v4, v5: TMasStr;
   v6, v7, v8, v9, v10: boolean;   
   v11, v12, v13, v14, v15: byte;   
   end;

И при чтении в массив, после того как прочитали запись увеличивайте длину на один.

.................................
setlength(testing, length(testing)+1);
.................................

.