Q&A
- 소스좀 봐주세요.
밑에와 같이 코딩을 했습니다.
22라인을 봐주세요.
1: //--------------------------------------------------------
2: var
3: Form1: TForm1;
4: MyStringList : TStringList;
5: MyFile : TextFile;
6: implementation
7:
8: {$R *.DFM}
9:
10: procedure TForm1.Button2Click(Sender: TObject);
11: Var i, j : Integer;
12: S : String[50];
13: begin
14: i := 0;
15: If Not OpenDialog1.Execute Then
16: Exit;
17: AssignFile(MyFile,OpenDialog1.FileName);
18: Reset(MyFile);
19: While Not Eof(MyFile) Do
20: Begin
21: ReadLn(MyFile,S);
22: MyStringList.Strings[i] := S; ------>Access Violation
23: Inc(i); at address 0044ffc159라는
24: End; 에러가 뜹니다. 무엇이 문젠가요
25: end;
22라인을 봐주세요.
1: //--------------------------------------------------------
2: var
3: Form1: TForm1;
4: MyStringList : TStringList;
5: MyFile : TextFile;
6: implementation
7:
8: {$R *.DFM}
9:
10: procedure TForm1.Button2Click(Sender: TObject);
11: Var i, j : Integer;
12: S : String[50];
13: begin
14: i := 0;
15: If Not OpenDialog1.Execute Then
16: Exit;
17: AssignFile(MyFile,OpenDialog1.FileName);
18: Reset(MyFile);
19: While Not Eof(MyFile) Do
20: Begin
21: ReadLn(MyFile,S);
22: MyStringList.Strings[i] := S; ------>Access Violation
23: Inc(i); at address 0044ffc159라는
24: End; 에러가 뜹니다. 무엇이 문젠가요
25: end;
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 델처버
- •
- 2000.07.07 01:12
- 1 COMMENTS
- /
- 0 LIKES
-
강인규•2000.07.07 01:18000-000;1; 이렇게 하셨나요? 이러면 에러...... 999-999;1; 이렇게 하셨어야죠....... 0은 널을 ...
-
- 호야
- •
- 2000.07.07 00:58
- 1 COMMENTS
- /
- 0 LIKES
밑에와 같이 코딩을 했습니다. 22라인을 봐주세요. 1: //-------------------------------------------------------- 2: var 3: Form1: TForm1; 4: MyStringList : TStringList; 5: MyFile : TextFile; 6: implementation 7: 8: {$R *.DFM...-
문홍철•2000.07.07 01:23호야 wrote: > 밑에와 같이 코딩을 했습니다. > 22라인을 봐주세요. > 1: //-------------------------...
-
- 원령
- •
- 2000.07.07 00:24
- 3 COMMENTS
- /
- 0 LIKES
-
강인규•2000.07.07 01:14formshow이벤트에 아래와 같이 코딩하세요 form2.showmodal; if form2.modalresult = 1 then ...
-
이은정•2000.07.07 00:47원령 wrote: > 안녕하세요.. 넘 안되서 이렇게 글을 올립니다. > > 현재 MDI폼으로 작업을 하고 있구요...
-
원령•2000.07.07 02:16> 이렇게 한번 해보세요.. > 먼저 메뉴에 프로젝트에 옵션에 가셔서 오토 크리에이트 항목에 로그인 하...
-
- 유병용
- •
- 2000.07.07 00:23
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.07.07 01:42안녕하세요. 최용일입니다. 맞는건가 잘 모르겠네요.. 디비나 리스트뷰구조가 어떻게 되어있는지 몰라서...
-
- 서병인
- 2000.07.07 00:10
- 0 COMMENTS
- /
- 0 LIKES
-
- 사발우성
- •
- 2000.07.07 00:10
- 2 COMMENTS
- /
- 0 LIKES
-
김영해•2000.07.07 00:16사발우성 wrote: > 안뇽하신가엽 고수님들(지금 쌈터에들 계신가....??) > > 음 다름이 아니라 dbgri...
-
사발우성•2000.07.07 00:33하하~ 마죠 음 조금 과격한 방법이쥐만 이게 있었쥐 캬캬캬 감솨엽^^
-
- 정욱환
- 2000.07.06 23:56
- 0 COMMENTS
- /
- 0 LIKES
-
- vagrant
- 2000.07.06 23:37
- 0 COMMENTS
- /
- 0 LIKES
-
- chaos
- •
- 2000.07.06 23:33
- 1 COMMENTS
- /
- 0 LIKES
-
아리엘•2000.07.07 00:09제가 그렇게 쓰는데 잘되요... 문제는 3.0에서는 안되더라구요.. 퀵레포트 2.0k에서는 님과 같은 메...
-
- 홍승현
- 2000.07.06 23:17
- 0 COMMENTS
- /
- 0 LIKES
-
- 영호
- •
- 2000.07.06 23:06
- 1 COMMENTS
- /
- 0 LIKES
-
이재원•2000.07.07 16:42If ListView1.Selected.SubItems.Strings[1]'2' Then ListView1.Selected.SubItems.Strings[1]:='...
-
- 혀기
- •
- 2000.07.06 22:39
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.07.06 22:44안녕하세요. 최용일입니다. AutoSize속성을 False로 해주세요. ^^ 항상 즐코하세요. 혀기 wrote: ...
-
- dogmh
- •
- 2000.07.06 22:02
- 1 COMMENTS
- /
- 0 LIKES
-
김영해•2000.07.06 22:10dogmh wrote: > 파라독스 테이블을 동적으로 생성하고 싶습니다. > TblAddr.DatabaseName := 'BUDONG...
-
- 원영준
- •
- 2000.07.06 21:49
- 1 COMMENTS
- /
- 0 LIKES
-
김영해•2000.07.06 22:13원영준 wrote: > 해야 하나요 ? > > 감사합니다. Query1.SQL.LoadFromFile('화일명'); Query1.op...
-
- 병규
- 2000.07.06 21:32
- 0 COMMENTS
- /
- 0 LIKES
-
- 아리엘
- 2000.07.06 21:26
- 0 COMMENTS
- /
- 0 LIKES
-
- 조헌철
- •
- 2000.07.06 21:14
- 4 COMMENTS
- /
- 0 LIKES
-
이재원•2000.07.07 17:05요렇게 한번 해 보시고요. procedure TForm1.Button1Click(Sender: TObject); begin if not Syste...
-
최용일•2000.07.06 21:51안녕하세요. 최용일입니다. 아래와 같이 고쳐서 해보세요... SystemParametersInfo(SPI_SETDESKWALLP...
-
조헌철•2000.07.07 00:58답변 잘 읽었습니다. 하지만 그렇게 해도 안되네요.
-
조규춘•2000.07.07 01:04조헌철 wrote: > 답변 잘 읽었습니다. > 하지만 그렇게 해도 안되네요. > 한번 만든 소스 저에게 매...
-
- 어린왕자
- •
- 2000.07.06 21:07
- 1 COMMENTS
- /
- 0 LIKES
-
이재원•2000.07.07 17:24먼저 ListBox.Style을 lbOwnerDrawFixed로 정해 주신담에 ItemHeight을 바꿔주시면 됩니당. 어린왕자 ...
-
- 김해중
- •
- 2000.07.06 21:10
- 2 COMMENTS
- /
- 0 LIKES
-
성호종•2000.07.07 03:13김해중 wrote: 저는 약간 다른경우지만 NT에서 개발한 프로그램이 WIN98에서 엉뚱하게 나와서 몽땅 98에...
-
김해중•2000.07.08 00:13성호종 wrote: 답변 감사 합나다 Win2000에서도 이러한 문제가 발생한다 합니다.... with Query do be...
-
- 손상수
- •
- 2000.07.06 21:03
- 4 COMMENTS
- /
- 0 LIKES
-
문홍철•2000.07.06 21:16손상수 wrote: > 수고가 많으십니다. 고슈님들....^^ > dbgrid의 선택된 열을 수정후 저장버튼을 눌렀을...
-
손상수•2000.07.06 21:28고맙습니다..그리고 염치없지만 한가지 더 부탁드릴께요 query를 open 하였을때 예를 들어 배송상태가 nul...
-
문홍철•2000.07.06 22:14손상수 wrote: > 고맙습니다..그리고 염치없지만 한가지 더 부탁드릴께요 > query를 open 하였을때 예를 ...
-
손상수•2000.07.06 22:45감사....
> 밑에와 같이 코딩을 했습니다.
> 22라인을 봐주세요.
> 1: //--------------------------------------------------------
> 2: var
> 3: Form1: TForm1;
> 4: MyStringList : TStringList;
> 5: MyFile : TextFile;
> 6: implementation
> 7:
> 8: {$R *.DFM}
> 9:
> 10: procedure TForm1.Button2Click(Sender: TObject);
> 11: Var i, j : Integer;
> 12: S : String[50];
> 13: begin
> 14: i := 0;
> 15: If Not OpenDialog1.Execute Then
> 16: Exit;
> 17: AssignFile(MyFile,OpenDialog1.FileName);
> 18: Reset(MyFile);
> 19: While Not Eof(MyFile) Do
> 20: Begin
> 21: ReadLn(MyFile,S);
> 22: MyStringList.Strings[i] := S; ------>Access Violation
> 23: Inc(i); at address 0044ffc159라는
> 24: End; 에러가 뜹니다. 무엇이 문젠가요
> 25: end;
create는 하셨나요...?
계속 해서 쓰신다면
폼의 OnCreate정도에다가
MyStringList := TStringList.Create를 해 주셔야 함당
그리고 나중에 Free해주시고요..