|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Access violation at address
Доброго времени суток Всем
Опять появилась проблема: при обращении к Setlength выдается ошибка: "Access violation at address ........ in module 'Project1.exe'. Read of address ........ Код:
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; Последний раз редактировалось mustimur, 21.11.2013 в 17:51. |