Q&A
- 이 코드에서 Access Violation Error가 나오는 원인을 알려주세요.
안녕하세요...질문 좀 드릴려고...
Access Violation Error라고 뜨는데요...
코딩 좀 봐 주세요...
--- Function을 지정한 유닛
unit Unit13;
interface
type
Pdbl = ^double;
function imsls_d_regression(a, e : integer; b,c : pdbl; f:integer ; g: pdbl ; h : integer; i : pdbl ; j : integer; k : pdbl ; d : integer) : pdbl; stdcall;
external 'cstat.dll';
procedure regression(N : integer; x, y, w, a, d : pdbl);
implementation
procedure regression(N : integer; x, y, w, a, d : pdbl);
var
imsls_anova_table_user, imsls_weights : integer ;
IMSLS_RETURN_USER : integer ;
p : pdbl;
begin
imsls_anova_table_user := 10090 ;
imsls_weights := 15400 ;
IMSLS_RETURN_USER := 14280 ;
p := imsls_d_regression(N, 1, x, y, IMSLS_WEIGHTS, w,
IMSLS_ANOVA_TABLE_USER, a ,
IMSLS_RETURN_USER, d, 0);
end;
end.
--- 에러가 발생하는 부분
procedure TForm11.Button3Click(Sender: TObject);
var
x : array[0..600] of double;
y : array[0..600] of double;
a : array[0..14] of double;
d : array[0..1] of double;
w : array[0..600] of double;
i, N_OBSERVATIONS : integer ;
po : single ;
p : pchar;
result : string ;
begin
adoquery1.close ;
adoquery1.Parameters[0].Value := edit1.Text ;
adoquery1.Parameters[1].Value := edit2.Text ;
adoquery1.Parameters[2].Value := label7.Caption ;
adoquery1.Prepared := true ;
adoquery1.Open ;
N_OBSERVATIONS := adoquery1.RecordCount ;
for i := 0 to 599 do
begin
x[i] := 0 ;
y[i] := 0 ;
w[i] := 0 ;
end;
adoquery1.First ;
for i := 0 to N_OBSERVATIONS -1 do
begin
x[i] := adoquery1.Fields[2].Value ;
y[i] := adoquery1.Fields[1].Value ;
adoquery1.Next ;
end ;
adoquery1.close ;
po := 0.0 ;
for i := 0 to N_OBSERVATIONS -1 do
begin
w[i] := 1.0 ;
end ;
regression(N_OBSERVATIONS, @x, @y, @w, @a[0], @d[0]);
-- showmessage를 하면 제대로 값이 나옵니다...
showmessage( floattostr(d[1]));
-- result변수에 값을 넘기면 값이 제대로 넘어값니다...
result := floattostr(d[1]) ;
-- 컴포넌트에 뿌릴려고 하면 값이 안나옵니다... 충돌에러가 발생하는 부분입니다...
label1.caption := result ;
end;
Access Violation Error라고 뜨는데요...
코딩 좀 봐 주세요...
--- Function을 지정한 유닛
unit Unit13;
interface
type
Pdbl = ^double;
function imsls_d_regression(a, e : integer; b,c : pdbl; f:integer ; g: pdbl ; h : integer; i : pdbl ; j : integer; k : pdbl ; d : integer) : pdbl; stdcall;
external 'cstat.dll';
procedure regression(N : integer; x, y, w, a, d : pdbl);
implementation
procedure regression(N : integer; x, y, w, a, d : pdbl);
var
imsls_anova_table_user, imsls_weights : integer ;
IMSLS_RETURN_USER : integer ;
p : pdbl;
begin
imsls_anova_table_user := 10090 ;
imsls_weights := 15400 ;
IMSLS_RETURN_USER := 14280 ;
p := imsls_d_regression(N, 1, x, y, IMSLS_WEIGHTS, w,
IMSLS_ANOVA_TABLE_USER, a ,
IMSLS_RETURN_USER, d, 0);
end;
end.
--- 에러가 발생하는 부분
procedure TForm11.Button3Click(Sender: TObject);
var
x : array[0..600] of double;
y : array[0..600] of double;
a : array[0..14] of double;
d : array[0..1] of double;
w : array[0..600] of double;
i, N_OBSERVATIONS : integer ;
po : single ;
p : pchar;
result : string ;
begin
adoquery1.close ;
adoquery1.Parameters[0].Value := edit1.Text ;
adoquery1.Parameters[1].Value := edit2.Text ;
adoquery1.Parameters[2].Value := label7.Caption ;
adoquery1.Prepared := true ;
adoquery1.Open ;
N_OBSERVATIONS := adoquery1.RecordCount ;
for i := 0 to 599 do
begin
x[i] := 0 ;
y[i] := 0 ;
w[i] := 0 ;
end;
adoquery1.First ;
for i := 0 to N_OBSERVATIONS -1 do
begin
x[i] := adoquery1.Fields[2].Value ;
y[i] := adoquery1.Fields[1].Value ;
adoquery1.Next ;
end ;
adoquery1.close ;
po := 0.0 ;
for i := 0 to N_OBSERVATIONS -1 do
begin
w[i] := 1.0 ;
end ;
regression(N_OBSERVATIONS, @x, @y, @w, @a[0], @d[0]);
-- showmessage를 하면 제대로 값이 나옵니다...
showmessage( floattostr(d[1]));
-- result변수에 값을 넘기면 값이 제대로 넘어값니다...
result := floattostr(d[1]) ;
-- 컴포넌트에 뿌릴려고 하면 값이 안나옵니다... 충돌에러가 발생하는 부분입니다...
label1.caption := result ;
end;
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- volf
- •
- 2000.11.12 05:24
- 1 COMMENTS
- /
- 0 LIKES
-
남기석•2000.11.13 08:16안녕하세요 청개구리 남기석( http://www.delphitravel.com )입니다. 스플래쉬 폼의 BorderStyle 을 bs...
-
- 윤종필
- •
- 2000.11.12 03:41
- 3 COMMENTS
- /
- 0 LIKES
-
김재억•2000.11.12 09:21혹시 도움이 될지 모르겠슴돠. 저 역시 윈98환경에서만 플밍하기 때문에... 아래에 시스템 종료에 대한 ...
-
윤종필•2000.11.12 17:58답변주셔서 감사합니다. 그런데 그렇게 해도 아무 반응이 없네요. InitiateSystemShutdown(Nil ,'' , 0...
-
김영운•2000.11.14 04:11혹시 권한문제는 아닐까 생각해보네요 윤종필 wrote: > 답변주셔서 감사합니다. > 그런데 그렇게 해...
-
- won
- 2000.11.12 03:19
- 0 COMMENTS
- /
- 0 LIKES
-
- 3107
- 2000.11.12 02:28
- 0 COMMENTS
- /
- 0 LIKES
-
- 김영현
- 2000.11.12 02:14
- 0 COMMENTS
- /
- 0 LIKES
-
- 아기코알라
- •
- 2000.11.13 01:27
- 1 COMMENTS
- /
- 0 LIKES
-
Mr.Q•2000.11.13 01:27아기코알라 wrote: > 안녕하세요 델 초보 아기 코알라입니다. > 자꾸 여러가지로 도움만 받아 죄송한데 ...
-
- Tora
- •
- 2000.11.12 01:35
- 1 COMMENTS
- /
- 0 LIKES
-
한하눌•2000.11.13 19:05Tora wrote: > 크리스탈 레포트에서 오라클 8.x 버전은 상관이 없는데.. > ex) Select * from A > ...
-
- 영화....
- •
- 2000.11.12 00:33
- 1 COMMENTS
- /
- 0 LIKES
-
제우스•2000.11.13 05:14영화.... wrote: > 안녕하세요... > 학교에서 프로그램을 배우고 있는데여, 증말 하나도 모르겠거든요......
-
- 정영민
- •
- 2000.11.12 00:02
- 2 COMMENTS
- /
- 0 LIKES
-
이렇게 해보세요•2001.05.26 02:01제어판->인터넷옵션->보안탭을 선택하시고 인터넷 보안수준을 사용자 정의를 선택하셔서 거기에 중간쯤...
-
최진환•2000.11.14 00:20정영민 wrote: > 안녕하세요.. > > 델파이 코리아에 올라와있는 하영재님의 강좌와 iNetSDK 를 이용해 ...
-
- 서비
- •
- 2000.11.12 22:38
- 1 COMMENTS
- /
- 0 LIKES
안녕하세요...질문 좀 드릴려고... Access Violation Error라고 뜨는데요... 코딩 좀 봐 주세요... --- Function을 지정한 유닛 unit Unit13; interface type Pdbl = ^double; function imsls_d_regression(a, e : integer; b,c : pdbl; f...-
김종찬•2000.11.12 22:39서비 wrote: > 안녕하세요...질문 좀 드릴려고... > > Access Violation Error라고 뜨는데요... > ...
-
-
김일영•2000.11.11 23:40한상훈 wrote: > A:array of integer; > > SetLength(A,n); > > 이후 A의 배열을 삭제한후 새로운 S...
-
한상훈•2000.11.12 00:29답변주셔서 감사하구여.. 그럼 수차례 지정,삭제해도 메모리의 손실은 없는건가요..? 김일영 wrote: >...
-
김일영•2000.11.12 22:44.
-
-
- shappy
- •
- 2000.11.11 23:13
- 2 COMMENTS
- /
- 0 LIKES
-
껄떡쇠•2000.11.15 10:31안녕하세요. 저도 그거 하려다가 포기했었거든요... 별로 도움이 안될것 같지만서도 윈도우즈탐색기는 ...
-
shappy•2000.11.15 20:31껄떡쇠 wrote: > 안녕하세요. 저도 그거 하려다가 포기했었거든요... > > 별로 도움이 안될것 같지만서...
-
- TIME
- •
- 2000.11.12 00:09
- 1 COMMENTS
- /
- 0 LIKES
-
김종찬•2000.11.12 01:01TIME wrote: > 안녕하세요? 고수가 되고자 열심히 노력중인 타임입니다.^^ > 아래소스에서요 > integer...
-
- 이문환
- 2000.11.11 23:00
- 0 COMMENTS
- /
- 0 LIKES
-
- 이태일
- •
- 2000.11.11 22:45
- 1 COMMENTS
- /
- 0 LIKES
-
mafioso•2000.11.12 08:24아래 내용은 다른 분이 올리신 답변을 옮긴 것 입니다. 제가 몇마디 첨언하자면 ntwdblib.dll 외에 연결...
-
- 초보
- 2000.11.11 22:44
- 0 COMMENTS
- /
- 0 LIKES
-
- won
- 2000.11.11 22:36
- 0 COMMENTS
- /
- 0 LIKES
-
- won
- 2000.11.11 21:50
- 0 COMMENTS
- /
- 0 LIKES
-
- 이태일
- 2000.11.11 20:53
- 0 COMMENTS
- /
- 0 LIKES
-
- 토토
- •
- 2000.11.11 20:16
- 1 COMMENTS
- /
- 0 LIKES
-
뻐록이•2000.11.11 20:42토토 wrote: > 제목그대로입니다. > 고수님들의 조언 부탁합니다. > 어떤 특정디렉토리의 그림화일들을 ...
> 안녕하세요...질문 좀 드릴려고...
>
> Access Violation Error라고 뜨는데요...
>
> 코딩 좀 봐 주세요...
>
> --- Function을 지정한 유닛
> unit Unit13;
>
> interface
>
>
> type
> Pdbl = ^double;
>
> function imsls_d_regression(a, e : integer; b,c : pdbl; f:integer ; g: pdbl ; h : integer; i : pdbl ; j : integer; k : pdbl ; d : integer) : pdbl; stdcall;
>
> external 'cstat.dll';
> procedure regression(N : integer; x, y, w, a, d : pdbl);
>
>
>
> implementation
>
> procedure regression(N : integer; x, y, w, a, d : pdbl);
> var
> imsls_anova_table_user, imsls_weights : integer ;
> IMSLS_RETURN_USER : integer ;
> p : pdbl;
> begin
>
> imsls_anova_table_user := 10090 ;
> imsls_weights := 15400 ;
> IMSLS_RETURN_USER := 14280 ;
>
> p := imsls_d_regression(N, 1, x, y, IMSLS_WEIGHTS, w,
> IMSLS_ANOVA_TABLE_USER, a ,
> IMSLS_RETURN_USER, d, 0);
>
> end;
>
>
> end.
>
>
> --- 에러가 발생하는 부분
> procedure TForm11.Button3Click(Sender: TObject);
> var
> x : array[0..600] of double;
> y : array[0..600] of double;
> a : array[0..14] of double;
> d : array[0..1] of double;
> w : array[0..600] of double;
> i, N_OBSERVATIONS : integer ;
> po : single ;
> p : pchar;
> result : string ;
>
> begin
>
> adoquery1.close ;
> adoquery1.Parameters[0].Value := edit1.Text ;
> adoquery1.Parameters[1].Value := edit2.Text ;
> adoquery1.Parameters[2].Value := label7.Caption ;
> adoquery1.Prepared := true ;
> adoquery1.Open ;
>
> N_OBSERVATIONS := adoquery1.RecordCount ;
>
> for i := 0 to 599 do
> begin
> x[i] := 0 ;
> y[i] := 0 ;
> w[i] := 0 ;
> end;
>
> adoquery1.First ;
> for i := 0 to N_OBSERVATIONS -1 do
> begin
> x[i] := adoquery1.Fields[2].Value ;
> y[i] := adoquery1.Fields[1].Value ;
> adoquery1.Next ;
> end ;
> adoquery1.close ;
>
> po := 0.0 ;
> for i := 0 to N_OBSERVATIONS -1 do
> begin
> w[i] := 1.0 ;
> end ;
>
>
> regression(N_OBSERVATIONS, @x, @y, @w, @a[0], @d[0]);
>
> -- showmessage를 하면 제대로 값이 나옵니다...
> showmessage( floattostr(d[1]));
>
> -- result변수에 값을 넘기면 값이 제대로 넘어값니다...
> result := floattostr(d[1]) ;
>
> -- 컴포넌트에 뿌릴려고 하면 값이 안나옵니다... 충돌에러가 발생하는 부분입니다...
> label1.caption := result ;
>
>
> end;
>
참고: result는 예약된 것 같습니다.
result를 다른이름으로 바꾸어서 실행해 보세요.