[fizik]

Пишу программу. В чем ее суть. Она берет текстовый файл 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]

Для начала, у тебя не закрывается файл в функции получения кол-ва строк в файле. может быть на это и ругается.

Далее, идем в опции компиляции и выставляем все проверки во вкл. может что компилятор сразу подскажет.

Третье. Надо упрощать код. Вместо массива лучше использовать список. В этом случае тебе не надо отдельно считать кол-во строк из файла. И разбирать можно строку сразу и складывать в одну переменную и хранить уже ее.

[fizik]

Добавление закрытие файла не помогло.Проблема мне кажется в выделяемой памяти для динамического массива.Но переполнение очевидно не происходит потому что последний элемент массива выводит правильно.Вообщем какая-то хитрая тут ошибка.
Оптимизация конечно хорошо, но понять бы все таки в чем здесь ошибка.

[lmikle]

Как уже говорил, ничего особенного в коде не вижу.
Давай попробуем переделать на список и объекты.

Код:

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;

Если не поможет, то надо будет "рыть" твою процедуру парсинга.

ЗЫ. Кстати, в такой редакции можешь выкинуть свою процедуру определения длинны файла