![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
|
Здравствуйте!
Помогите пожалуйста решить задачу. Организовал построчное считывание переменных с текстового файла. Код находится в timer. Код:
line:=0
tr1.LoadFromFile('trajectory_P1.txt');
tr2:=TStringList.create; //создаём класс
tr2.text:=stringReplace(tr1[line],#32,#13#10,[rfReplaceAll]);//замена всех пробелов на символы конца строки
xs:=StrToFloat(tr2[0]);
ys:=StrToFloat(tr2[1]);
xn:=StrToFloat(tr2[2]);
yn:=StrToFloat(tr2[3]);
DecimalSeparator := '.';
fi_f_r:=StrToFloat(tr2[5]);
DecimalSeparator := '.';
dis_r:=StrToFloat(tr2[6]);
tr2.free;
tr1.free;
xn:= xn+1;Эта часть кода выполняется нормально.но когда ставлю условие и увеличить line на +1 Код:
if xn=xs then line:=line+1; Возникает ошибка. Заранее благодарен за помощь! |