|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Ошибка с массивами в программе
Пишу программу. В чем ее суть. Она берет текстовый файл dump и из него построчно берет данные .Для каждой строчки кладет третье число из строки в первый массив(masx), четвертый во второй(masy), пятый в третий(masz). И все вроде как хорошо(видно, что данные из последний строки показывает верно через showmessage в конце), но при закрытии программы выскакивает ошибка:
raised exception class einvalidpointer with message 'invalid pointer operation'. Понял почитав интернет, что это связано с массивами.Однако не понимаю как конкретно.Массивы не маленькие.Но не так чтобы огромные. На то, что делается при создании формы не обращайте внимание это к сути забора данных из файла не имеет отношения. Очень прошу помощи.Программа нужна для научной работы.Вот текст программы.Так же прикладываю сам проект и образец файла dump. Код:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; Edit1: TEdit; Label2: TLabel; Edit2: TEdit; Label3: TLabel; Button1: TButton; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; sigma:real; skvadrata:real; kol:integer; implementation {$R *.dfm} {************************установка начальных значений**************************} procedure TForm1.FormCreate(Sender: TObject); begin form1.AutoSize:=true; sigma:=strtofloat(edit1.text); skvadrata:=1/sigma; kol:=trunc((strtofloat(edit2.text))/skvadrata); end; {************************чтение координат из строки****************************} function readnumber(text:string;N:integer):real; var stroka:String; flag:boolean; pos,probel:integer; begin pos:=1;flag:=false;probel:=0; //ищем первый символ после N-го пробела while probel<N do begin if Ord(text[pos])=32 then probel:=probel+1; pos:=pos+1; end; //прибавляем символы пока не найдем следующий пробле while Ord(text[pos])<>32 do begin stroka:=stroka+text[pos]; pos:=pos+1; end; //заменяем символ точки на символ запятой flag:=false;pos:=1; while flag=false do begin if ord(stroka[pos])=46 then begin stroka[pos]:=','; flag:=true; end; pos:=pos+1; end; //выводим результат в виде числа result:=strtofloat(stroka); end; {********************определяем количество строк в файле***********************} function TextSize(FileName: string): integer; var k:integer; f:text; begin if FileExists(FileName) then begin assignfile(f,FileName); reset(f); k:=0; while not(eof(f)) do begin readln(f); inc(k); end; result:=k; end else Result := -1; end; {******************************чтение координат в массив***********************} procedure TForm1.Button1Click(Sender: TObject); var myFile : TextFile; razmer,nomer:integer; masx,masy,masz:array of real; text1: string; begin // открытие файла для чтения AssignFile(myFile, 'dump.txt'); Reset(myFile); //определяем количество строк в файле razmer:=0; razmer:=TextSize('dump.txt'); //задаем длинну массивов SetLength(masx, razmer+1); SetLength(masy, razmer+1); SetLength(masz, razmer+1); //читаем данные из файла в массив nomer:=1; //while not Eof(myFile) do while nomer<=(razmer) do begin Readln(myFile,text1); masx[nomer]:=readnumber(text1,2); masy[nomer]:=readnumber(text1,3); masz[nomer]:=readnumber(text1,4); nomer:=nomer+1; end; // Закрытие файла CloseFile(myFile); ShowMessage( floattostr(masx[8000]) ); ShowMessage( floattostr(masy[8000]) ); ShowMessage( floattostr(masz[8000]) ); end; end. lmikle: Пользуемся тегами для оформления! Последний раз редактировалось lmikle, 03.10.2014 в 20:50. |
#2
|
|||
|
|||
Для начала, у тебя не закрывается файл в функции получения кол-ва строк в файле. может быть на это и ругается.
Далее, идем в опции компиляции и выставляем все проверки во вкл. может что компилятор сразу подскажет. Третье. Надо упрощать код. Вместо массива лучше использовать список. В этом случае тебе не надо отдельно считать кол-во строк из файла. И разбирать можно строку сразу и складывать в одну переменную и хранить уже ее. |
#3
|
|||
|
|||
Добавление закрытие файла не помогло.Проблема мне кажется в выделяемой памяти для динамического массива.Но переполнение очевидно не происходит потому что последний элемент массива выводит правильно.Вообщем какая-то хитрая тут ошибка.
Оптимизация конечно хорошо, но понять бы все таки в чем здесь ошибка. |
#4
|
|||
|
|||
Как уже говорил, ничего особенного в коде не вижу.
Давай попробуем переделать на список и объекты. Код:
type TDataObject = class X, Y, Z : Double; // тип real лучше не использовать. end; procedure TForm1.Button1Click(Sender: TObject); var myFile : TextFile; AData : TObjectList; ADataObj : TDataObject; text1: string; n : Integer; begin Try begin AData := TObjectList.Create(True); // открытие файла для чтения AssignFile(myFile, 'dump.txt'); Reset(myFile); while not Eof(myFile) do begin Readln(myFile,text1); ADataObj := TDataObject.Create; ADataObj.x := readnumber(text1,2); ADataObj.y := readnumber(text1,3); ADataObj.z := readnumber(text1,4); AData.Add(ADataObj); end; // Закрытие файла CloseFile(myFile); // Диагностика n := AData.Count-1; ADataObj := AData[n] As TDataObject; ShowMessage( Format('%d %f %f %f', [n,ADataObj.x,ADataObj.y,ADataObj.z])); Finally AData.Free; end; end; Если не поможет, то надо будет "рыть" твою процедуру парсинга. ЗЫ. Кстати, в такой редакции можешь выкинуть свою процедуру определения длинны файла Последний раз редактировалось lmikle, 04.10.2014 в 00:33. |