[Maximusrs]

Подскажите пожалуйста в чем ошибка,вот описание проблемы:
Мне нужно создать в Делфи программу-тест которая считывает вопросы и ответы из типизированного файла, считываю вопросы загоняю их в Label и RadioButton первый вопрос и ответы вбиваются нормально,а при следующих присваиваниях часть техта "съедается" идет смещение на некоторое число позиций, Что делать?

[Maximusrs]

Пожалуйста помогите завтра с утра уже сдавать надо!!!!(((((((

[lmikle]

код в студию.
А то ответ будет - ошибка в 255 строке...

[Maximusrs]

Весь код скинуть не смогу уже удалил эту часть в тексте программы. Напишу часть образца:

Код:

type
student=record;
vopros:string[200];
otvet1:string[30];
otvet2:string[30];
otvet3:string[30];
otvet4:string[30];

otvet:integer;
end;
var
t:student;
i,k:integer;
f:file of student;
begin

AssignFile(f,'sport');
Reset(f);
Seek(f,i);
readln(f,t);
s:=t.vopros;
Label1.Caption:=s;
s:=t.otvet1;
RadioButton1.Caption:=s;
s:=t.otvet2;
RadioButton2.Caption:=s;
s:=t.otvet3;
RadioButton3.Caption:=s;
s:=t.otvet4;
RadioButton4.Caption:=s;
i:=i+1;
CloseFile(f);
end;

что то на подобие такого...

[Maximusrs]

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

[Maximusrs]

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