|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
stringReplace в timer
Здравствуйте!
Помогите пожалуйста решить задачу. Организовал построчное считывание переменных с текстового файла. Код находится в 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; Возникает ошибка. Заранее благодарен за помощь! |
#2
|
|||
|
|||
А что делается после
Код:
line:=line+1;? Код:
tr1.free; |
#3
|
||||
|
||||
Код:
var f: TextFile; xs, ys, xn, yn, fi_f_r, dis_r: Double; begin AssignFile(f, 'Project1.txt'); Reset(f); Read(f, xs, ys, xn, yn, fi_f_r, dis_r); { Memo1.Lines.Add(FloatToStr(xs)); Memo1.Lines.Add(FloatToStr(ys)); Memo1.Lines.Add(FloatToStr(xn)); Memo1.Lines.Add(FloatToStr(yn)); Memo1.Lines.Add(FloatToStr(fi_f_r)); Memo1.Lines.Add(FloatToStr(dis_r)); } Read(f, xs, ys, xn, yn, fi_f_r, dis_r); { Memo1.Lines.Add(FloatToStr(xs)); Memo1.Lines.Add(FloatToStr(ys)); Memo1.Lines.Add(FloatToStr(xn)); Memo1.Lines.Add(FloatToStr(yn)); Memo1.Lines.Add(FloatToStr(fi_f_r)); Memo1.Lines.Add(FloatToStr(dis_r)); } CloseFile(f); end; Project1.txt: Цитата:
Пишу программы за еду. __________________ |