[mustimur]

Доброго времени суток Всем

Опять появилась проблема: при обращении к Setlength выдается ошибка:
"Access violation at address ........ in module 'Project1.exe'. Read of address ........

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46

var   Form1: TForm1;   //Pi:real;    np, nlob, ig,jg,kg,napr: integer;    xprof, yprof, Lprof, mksi,meta,mzeta: Array of real;    mx: array of array of array of real;    my: array of array of array of real;   implementation   procedure TForm1.Button1Click(Sender: TObject); var f: file; g:variant; i,j,k,t,zs,s:integer; fn:string; xc,yc,zc, nx,ny,nz,dln:real; series2:Tpoint3dseries; begin if od1.Execute then begin   fn:=od1.FileName;   AssignFile(F, fn);   Reset(f,sizeof(real));   t:=sizeof(real);   Blockread(F,  s,t);   Blockread(F,  nlob ,t); form1.edtLobels.Text:=floattostr( nlob);   Blockread(F,  i ,t); form1.edtKsi.Text:=floattostr( ig);   Blockread(F,  j ,t); form1.edteta.Text:=floattostr( jg);   Blockread(F,  k ,t); form1.edtzeta.Text:=floattostr( kg);   closefile(f);   jg:=j;   ig:=i;   kg:=k;   np:=s;   if ( napr=-1) then form1.optright.Checked:=true else form1.optleft.Checked:=true;      setlength( xprof, np+1);      setlength( yprof, np+1);      setlength( lprof, np+1);      setlength( mksi , ig+1);      setlength( meta , jg+1);      setlength( mzeta , kg+1);      setlength( mx, ig+1, jg+1, kg+1);      setlength( my, ig+1, jg+1, kg+1);    end;

Хотя при вызове всего из другой процедуры (другой кнопки) все работает! Отличие одно там не читается из файла информация, а берется из формы... Как такое может быть???

[M.A.D.M.A.N.]

На какой строке падет?

[mustimur]

до первого setlength идет, а дальше падает...
ошибка якобы в строке юнита System, вызываемого setlength:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

procedure DynArraySetLength(var a: Pointer; typeInfo: Pointer; dimCnt: NativeInt; lengthVec: PNativeint); var   i,j: NativeInt;   newLength, oldLength, minLength: NativeInt;   elSize: NativeInt;   neededSize: NativeInt;   p, pp: Pointer; begin   p := a;     // Fetch the new length of the array in this dimension, and the old length   newLength := lengthVec^;   if newLength <= 0 then   begin     if newLength < 0 then       Error(reRangeError);     DynArrayClear(a, typeInfo);     exit;   end;     oldLength := 0;   if p <> nil then   begin     Dec(PByte(p), SizeOf(TDynArrayRec)); oldLength := PDynArrayRec(p).Length;   end;

падает на oldLength := PDynArrayRec(p).Length; удивляет то что при обращении с другой кнопки работает...

[poli-smen]

Сообщение от mustimur

Доброго времени суток Всем

Опять появилась проблема: при обращении к Setlength выдается ошибка:
"Access violation at address ........ in module 'Project1.exe'. Read of address ........

Код:

Хотя при вызове всего из другой процедуры (другой кнопки) все работает! Отличие одно там не читается из файла информация, а берется из формы... Как такое может быть???

У тебя переменные в которые ты читаешь имеют длину 4 байта (так как типа Integer), а ты в них читаешь по 8 байт (так как тип Real занимает 8 байт).

UPD
Хотя даже не 8 байт. В "Blockread" указывают количество блоков для чтения, а не количество байт, а так как у тебя нетипизированный файл, то там будет читаться значительно больше, при этом будет затираться стек и валиться программа.
Т.е. сделай файл типизированный байтом:

Код:

1 2	var   f: file of Byte; // Вместо нетипизированного f: file;

(Или ещё лучше переделай через класс TFileStream)

И читай по размеру своих переменных:

Код:

1 2 3 4 5

Blockread(F, s, SizeOf(s)); Blockread(F, nlob, SizeOf(nlob)); form1.edtLobels.Text:=floattostr( nlob); Blockread(F, i, SizeOf(i)); form1.edtKsi.Text:=floattostr( ig); Blockread(F, j, SizeOf(j)); form1.edteta.Text:=floattostr( jg); Blockread(F, k, SizeOf(k)); form1.edtzeta.Text:=floattostr( kg);

[mustimur]

Вы правы, я это переделал.. Но ошибка не исчезла она возникает в setLength, при это переменная определяющая размер integer, верное значение так что это моя ошибка, но не в этом проблема....

[mustimur]

Решение нашел с использованием TFileStream.
А до этого был какой-то глюк: трассил программу до первого BlockRead все массивы были определены (нормально), а вот после первого же на следующим шаге становились либо чушью набитыми либо имели значение inaccessible value, и при попытке обратится к ним потом с SetLength программа вылетала с ошибкой. с TFileStream такого нет.. Это я чего то не понял или у моего Delphi глюк?

[angvelem]

В "Blockread" указывают количество блоков для чтения

Но при этом устанавливается режим чтения по 8 байт.

Код:

1	Reset(f,sizeof(real));

ТС достаточно было изменить на

Код:

1 2	Reset(f, SizeOf(Integer)); t := 1;

[poli-smen]

Сообщение от angvelem

ТС достаточно было изменить на

Код:

Или же, как я предлагал, сделать переменную файла типизированной байтом:

Код:

1 2	var   f: file of Byte; // Вместо нетипизированного f: file;

Тогда в "Reset" не нужно указывать размер блока. И читать в соответствии с размером переменной: SizeOf(имя_переменной) вместо SizeOf(real).
Хотя всё равно вариант с TFileStream мне нравится больше