К сожалению, такое напрямую не сделать - внедрять объекты в файл прямого доступа сложно, максимум содержимое StringList можно сохранить в текстовый файл его же методами. Конечно, помудрив немного записать всё же получится, но как потом обратно считывать, когда не известны изначально размеры полей получившейся записи? Вариант решения - преобразовать их под более типизированный вид, напр.
Код:
TTest = record
TVopros: array[0..99] of String[255];
TVopr1 : array[0..99] of String[255];
TVopr2 : array[0..99] of String[255];
TVopr3 : array[0..99] of String[255];
TVopr4 : array[0..99] of String[255];
TVopr5 : array[0..99] of String[255];
TVopr6 : array[0..99] of String[255];
...
TFileTest = record ...
...
т.е так точно понятно сколько занимает байт, и на какой позиции распологается поле записи в ФПД.
Ну а дальше
Код:
var
f: file of TFileTest;
r:TFileTest;
begin
AssignFile(f, 'Имя файла');
// чтение rec 10
if FileExists('Имя файла') then Reset(f) else ReWrite(f);
Seek(f,10);
Read(f,r);
// запись rec 20
Seek(f, 20);
Write(f,r);
Closefile(f);
end;
Не экономично, зато надёжно.
При записи можно пустые строки забивать спецсимволами, а при считывании их игнорировать