|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Не присваивает значения переменной
Что-то я уже не соображаю) Вроде бы, все верно, ошибок нет, но банально элементы массива значения не присваиваются (остается (0,0)), tmp и tmp2 считываются правильно.
Код:
type pointsarr=array of TPoint; var Points: TextFile; Pmas: pointsarr; masfound: Boolean=False; ... procedure ReadPoints(var Mas: pointsarr); var FHandle,tmp,tmp2: Integer; begin FHandle := FileOpen('Points.mas', fmOpenRead); if FileExists('Points.mas')and(GetFileSize(FHandle,nil)>0) then begin FileClose(FHandle); masfound:=True; AssignFile(Points,'Points.mas'); Reset(Points); while not Eof(Points) do begin SetLength(Mas,Length(Mas)+1); read(points,tmp); Readln(points, tmp2); Mas[Length(Mas)]:=Point(tmp,tmp2); end; end else ... end; Последний раз редактировалось MrBadge, 04.04.2012 в 22:02. |
#2
|
||||
|
||||
Всё же имеется ошибка:
Код:
Mas[Length(Mas)]:=Point(tmp,tmp2); Код:
Mas[Length(Mas) - 1] := Point(tmp, tmp2); а это зачем? Код:
FHandle := FileOpen('Points.mas', fmOpenRead); Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
Этот пользователь сказал Спасибо angvelem за это полезное сообщение: | ||
MrBadge (04.04.2012)
|
#3
|
|||
|
|||
Черт, с нуля же) Спасибо
|
#4
|
|||
|
|||
это для
GetFileSize(FHandle,nil) не нужно?) |