Удаление записей из типизированного файла

[whiskey]

Всем доброго времени суток. Суть вот в чем - Дан типизированный файл для хранения информации о тесте, который сохраняет в одну запись количество вопросов, номер текущего вопроса, варианты ответов и правильный ответ.
Вопрос: Раз уж я выбрал 1 запись для хранения всего, как мне теперь добавить возможность удаления вопросов?

Поясню кодом:

Вот как у меня идет вопрос в тесте

......
const
NQ=100;//максимальное число вопросов
......
type
t_Test=record
QW:array[1..NQ] of String[200]; //массив номера вопроса
end;
var
Test:t_Test;
FTest:File of  t_Test; //файл для создания теста
n:byte;    //текущий вопрос
k:byte;     //количество вопросов

Над кнопкой добавить вопрос я долго не думал

k:=k+1;
label1.Caption:=intTostr(K);

А вот как теперь удалить текущий вопрос из теста?

Test.QW[n].delete ???

[Stilet]

А вот как теперь удалить текущий вопрос из теста?

Самое простое - раз это просто строка - затри ее, сделай пустой, а потом при записи в файл просто не пиши пустые строки.

[whiskey]

Что то типо того?

 
Test.QW[n]:='';
k:=k-1
n:=n-1

Потом как ограничить при записи?

if not Test.QW[n]='' then WriteTest; 
else n:=n-1;

[Stilet]

Да да... Ты уловил месседж )

[whiskey]

...Понял не тупой...Тупой не понял=)
Главное чтоб не криво работало

[Stilet]

Ну насчет кривизны - юзай БД и так вопрос не станет.

[Alter]

Решение:
• грузить все записи из файла в память, убирать не нужное, сохранять в исходный файл с полной перезаписью
• использовать временный файл для сброса нужных записей в него, затем удалить исходный файл, и записать на его место временный файл с именем исходного файла
• добавить в структуру записи поле(тип Boolean), для указания занятости поля. Если True, значит запись существует. Если False, значит запись удалена. При добавлении можно перезаписывать отключённые записи новыми данными, и ставить полю значение True.