adidas, на сколько я понел, всё просто..
например:
Цитата:
// ================================================== ============ //
procedure GetQuestNum(rec_str: String):Integer;
// GetQuestNum(ПолученнаяСтрока):Значение..
// Извлечение номера вопроса из строки..
begin
if lowercase(copy(rec_str, 1, 6))='вопрос' then
// Начало строки в нижнем регистре совпадает с 'вопрос'..
begin
Result:=StrToInt(copy(rec_str, 7, length(rec_str)-6));
// ^ Возвращаем номер вопроса для дальнейшей работы с ним..
end; // ..
end;
// ================================================== ============ //
|
Не проверял, но должно работать))
а дальше просто загружаешь файл в StringList и считаешь, что все чётные строки -ответы на вопросы, нечётные - номера вопросов..
предположим, у тебя получилось rec_str=13.. тогда ответ на вопрос номер 13 будет в строке 13*2=26
это наверное один из простейших способов реализации...