Q&A
- TFileStream 에서 error
var
SData : string;
i, nLength : integer;
DumpFile : array of TFileStream;
....
for i := 0 to 10 do begin
if not FileExists('c:Test' + inttostr(j) +'.Dat') then begin
DumpFile[i] := TFileStream.create('c:Test' + inttostr(j) +'.Dat', fmCreate);
DumpFile[i].Free;
end;
DumpFile[i] := TFileStream.Create('c:Test' + inttostr(j) +'.Dat', fmOpenWrite or fmShareDenyNone);
sData := 'Testtesttest'+ #13#10;;
nLength := length(sData);
DumpFile[i].Seek(0, soFromEnd);
DumpFile[i].Write(sData[1] , nLength);
inc(i);
DumpFile[i].Free;
DumpFile[i] := nil;
위와 같이 하고 실행을 하면 Access violation address 00442C12 in module 'xxx.exe'라고 나오네요....
배열로 하지 않고 했을 경우는 에러가 안나는데 왜 배열로 잡으면 에러가 나는지 알려주세요...
답변 기다리겠습니다.
SData : string;
i, nLength : integer;
DumpFile : array of TFileStream;
....
for i := 0 to 10 do begin
if not FileExists('c:Test' + inttostr(j) +'.Dat') then begin
DumpFile[i] := TFileStream.create('c:Test' + inttostr(j) +'.Dat', fmCreate);
DumpFile[i].Free;
end;
DumpFile[i] := TFileStream.Create('c:Test' + inttostr(j) +'.Dat', fmOpenWrite or fmShareDenyNone);
sData := 'Testtesttest'+ #13#10;;
nLength := length(sData);
DumpFile[i].Seek(0, soFromEnd);
DumpFile[i].Write(sData[1] , nLength);
inc(i);
DumpFile[i].Free;
DumpFile[i] := nil;
위와 같이 하고 실행을 하면 Access violation address 00442C12 in module 'xxx.exe'라고 나오네요....
배열로 하지 않고 했을 경우는 에러가 안나는데 왜 배열로 잡으면 에러가 나는지 알려주세요...
답변 기다리겠습니다.
2
COMMENTS
-
-
안녕하세요. 최용일입니다.
DumpFile이 동적 배열인데... 메모리 할당해주셨나요... 코드에서는 안보이네요...
SetLength(DumpFile, 11);
for I := 0 to 10 do
......
SetLength(DumpFile, 0);
^^ 항상 즐코하세요...
(NOTICE) You must be logged in to comment on this post.
-
- 오혜영
- •
- 2003.02.05 22:27
- 1 COMMENTS
- /
- 0 LIKES
-
이중철•2003.02.05 23:17Excel에서는 날짜타입이 델파이와 같은 Double Type 입니다. 그래서 가져올때는 FormatDateTime('HH:NN:...
-
- 고광웅
- •
- 2003.02.05 22:20
- 2 COMMENTS
- /
- 0 LIKES
-
최용일•2003.02.05 22:54안녕하세요. 최용일입니다. MessageDlgPos란 함수를 써보세요... ShowMessagePos란 함수도 있습니다. 이...
-
구창민•2003.02.05 22:51안녕하세요~ 구창민입니다. CreateMessageDialog 를 쓰서 좌표를 주면 되긴 하겠지만, 좀 더 꽁수를 ...
-
- 임종학
- •
- 2003.02.05 21:18
- 2 COMMENTS
- /
- 0 LIKES
-
최용일•2003.02.05 22:56안녕하세요. 최용일입니다. 그냥 재귀호출하시면 간단히 될건데...... procedure TForm1.Button1Clic...
-
임종학•2003.02.05 23:12정말 감사....
-
- 곽전남
- 2003.02.05 20:50
- 0 COMMENTS
- /
- 0 LIKES
-
- 한결
- 2003.02.05 20:39
- 0 COMMENTS
- /
- 0 LIKES
-
- 김석재
- 2003.02.05 20:11
- 0 COMMENTS
- /
- 0 LIKES
-
- 아폴론
- 2003.02.05 19:55
- 0 COMMENTS
- /
- 0 LIKES
-
- 포 맷
- •
- 2003.02.05 19:29
- 2 COMMENTS
- /
- 0 LIKES
var SData : string; i, nLength : integer; DumpFile : array of TFileStream; .... for i := 0 to 10 do begin if not FileExists('c:Test' + inttostr(j) +'.Dat') then begin DumpFile[i] := TFileStream.create('c:Test' + inttostr(...-
이순구•2003.02.05 19:42배열의 크기를 설정하지 않으셨네요... DumpFile: array[0..10] of TFileStream; 같이 미리 배열의 크기를...
-
최용일•2003.02.05 19:40안녕하세요. 최용일입니다. DumpFile이 동적 배열인데... 메모리 할당해주셨나요... 코드에서는 안보이...
-
- 델파이탐크루즈
- •
- 2003.02.05 18:57
- 2 COMMENTS
- /
- 0 LIKES
-
KDDG_BaSTaD•2003.02.05 19:13==> Depth는 없는 것인가요? 물론 Recursive하게 찾으면 문제가 되질 않겠지만, 1 Depth라면 Loop로 ...
-
델파이탐크루즈•2003.02.05 19:45
-
- 임봉상
- •
- 2003.02.05 10:46
- 2 COMMENTS
- /
- 0 LIKES
-
KDDG_BaSTaD•2003.02.05 18:48==> 물론 가능하죠.. ^^; c로 작성되어 있다면 콘솔일 확률이 높겠네요.. 김성동님의 Acro...
-
임봉상•2003.02.05 19:32빠른 답변 감사드립니다. ^^;
-
- 하덕진
- •
- 2003.02.05 10:09
- 2 COMMENTS
- /
- 0 LIKES
-
최용일•2003.02.05 22:59안녕하세요. 최용일입니다. 걍 코딩하세요... 화면에 표시될 수 있는 문자들은 대부분 정의되어 있지 않...
-
KDDG_ZZOM•2003.02.05 10:55Windows.pas에 정의되어있네요... 글구 / 키값은 190이네요... / 키에 대한 정의는 없는것같고요... 잘...
-
- 아폴론
- 2003.02.05 04:46
- 0 COMMENTS
- /
- 0 LIKES
-
- 김민아
- •
- 2003.02.05 04:20
- 1 COMMENTS
- /
- 0 LIKES
-
KDDG_BaSTaD•2003.02.05 18:53==> 물론, 메인 Application 객체와 DLL Application 객체를 동기화 시켜주졌지요? 그렇다고 한다면, ...
-
- 이경아
- •
- 2003.02.05 03:37
- 1 COMMENTS
- /
- 0 LIKES
-
KDDG_hyun•2003.02.05 03:45Copy(str + '00000000',1,14) 이런식으로 0을 붙인다음에 짤라주세요;; 아니면 FormatFloat('0000...
-
- 임준
- •
- 2003.02.05 03:34
- 2 COMMENTS
- /
- 0 LIKES
-
김병윤•2003.02.06 07:59저두 찾아서 사용해보았던 자료에서 발췌했습니다. uses Windows, Messages, SysUtils, Classes, Reg...
-
구창민•2003.02.05 03:53
-
- 민
- •
- 2003.02.05 02:59
- 2 COMMENTS
- /
- 0 LIKES
-
장태원•2003.02.06 00:59없습니다. 그이유는 FTP 처럼 파일 사이즈를 원크기 현 저장한 크기를 알 수 없기 때문입니다. 따...
-
민•2003.02.06 10:14파일의 용량이 커서 올리는데 시간이 제법 걸립니다. 그렇다면 그동안 뭘 보여주지요... 너무 썰렁합...
-
- 뚕
- •
- 2003.02.05 02:47
- 3 COMMENTS
- /
- 0 LIKES
-
KDDG_BaSTaD•2003.02.05 18:58==> Tag := edtIndex; // 추가해 주심 되죠 ^^; ==> 여기서는 걍...
-
강민주•2003.02.05 03:22procedure TForm1.lineButtonClick(Sender: TObject); var I: Integer; begin ...
-
뚕•2003.02.05 19:37부자되세요..
-
- 서기원
- 2003.02.05 01:23
- 0 COMMENTS
- /
- 0 LIKES
-
- 올랭이
- 2003.02.05 01:03
- 0 COMMENTS
- /
- 0 LIKES
-
- songwc
- 2003.02.05 01:00
- 0 COMMENTS
- /
- 0 LIKES
DumpFile: array[0..10] of TFileStream; 같이 미리 배열의 크기를 설정하시거나 SetLength로 나중에 설정하시거나 하면 됩니다. 지금은 당연히 메모리 할당이 안된상태니까 DumpFile[i]로 접근하면 Access violation 에러가 나겠지요..