Q&A
- 메모리 바이올레이션 에러가납니다. 왜그런지 답변부탁드려요.
procedure TForm1.SpeedButton1Click(Sender: TObject);
var strlist1:Tstringlist; Kicho_R : TIniFile; DirInfo: TSearchRec; r,i : Integer;
begin
StrList1 := TStringList.Create;
r := FindFirst(ExtractFilePath(Application.ExeName)+'ini*.ini', FaAnyfile, DirInfo);
while r = 0 do begin
if ((DirInfo.Attr and FaDirectory <> FaDirectory) and
(DirInfo.Attr and FaVolumeId <> FaVolumeID)) then
StrList1.add(DirInfo.Name);
r := FindNext(DirInfo);
end;
for i := 0 to StrList1.count -1 do
begin
Kicho_R := Tinifile.Create(StrList1[i]);
Form1.Table1.append;
Form1.Table1.FieldByName('User_Name').AsString := Kicho_R.readstring('요청인','이름','');
Form1.Table1.FieldByName('User_Email').AsString := Kicho_R.readstring('요청인','메일주소','');Form1.Table1.Post;
Kicho_R.Free;
DbiSaveChanges(Form1.Table1.Handle);
end;
strlist1.free;
Form1.label1.caption:=Kicho_R.readstring('요청인','이름','');
end;
var strlist1:Tstringlist; Kicho_R : TIniFile; DirInfo: TSearchRec; r,i : Integer;
begin
StrList1 := TStringList.Create;
r := FindFirst(ExtractFilePath(Application.ExeName)+'ini*.ini', FaAnyfile, DirInfo);
while r = 0 do begin
if ((DirInfo.Attr and FaDirectory <> FaDirectory) and
(DirInfo.Attr and FaVolumeId <> FaVolumeID)) then
StrList1.add(DirInfo.Name);
r := FindNext(DirInfo);
end;
for i := 0 to StrList1.count -1 do
begin
Kicho_R := Tinifile.Create(StrList1[i]);
Form1.Table1.append;
Form1.Table1.FieldByName('User_Name').AsString := Kicho_R.readstring('요청인','이름','');
Form1.Table1.FieldByName('User_Email').AsString := Kicho_R.readstring('요청인','메일주소','');Form1.Table1.Post;
Kicho_R.Free;
DbiSaveChanges(Form1.Table1.Handle);
end;
strlist1.free;
Form1.label1.caption:=Kicho_R.readstring('요청인','이름','');
end;
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 이금선
- •
- 2001.07.10 20:04
- 4 COMMENTS
- /
- 0 LIKES
-
정성훈•2001.07.10 20:33이금선 wrote: > 아래 내용은 입력처리 조건을 처리하는 부분입니다. > > 문제는 조건4.우수고객등급은... -
이금선•2001.07.11 04:36정성훈 wrote: > > 안녕하세요. > FOR는 루프인데 결과가 같아도 계속 반복되니 메시지 출력은 당...
-
뽀록이•2001.07.11 23:38안녕하세요 전 그렇게 복잡하게 안 할거 같은데요 이렇게 함 안 될까요>>>>>>>>>>??????? if not ((ed...
-
정성훈•2001.07.11 06:32이금선 wrote: > 정성훈 wrote: > > > > > > 안녕하세요. > > FOR는 루프인데 결과가 같아도 계속...
-
- 나그네
- 2001.07.10 19:55
- 0 COMMENTS
- /
- 0 LIKES
-
- 처음
- •
- 2001.07.10 19:48
- 2 COMMENTS
- /
- 0 LIKES
-
Ben•2001.07.10 20:14처음 wrote: > MDI와 CHILD 폼을 기본으로 사용하고요.. > 간혹 CHILD폼을 열때 다음과 같은 Error메세지...
-
처음•2001.07.10 20:54Ben wrote: > 처음 wrote: > > MDI와 CHILD 폼을 기본으로 사용하고요.. > > 간혹 CHILD폼을 열때 다음...
-
- 인어공주
- •
- 2001.07.10 19:45
- 2 COMMENTS
- /
- 0 LIKES
-
하기•2001.07.10 20:21procedure Val(S; var V; var Code: Integer); [[[[Example]]]] procedure TForm1.Button1Click(Sender:...
-
인어공주•2001.07.10 21:01항상 하기님이 제 답변을 해주시는것 같네요. 정말 고맙습니다. 문제는 해결 되었구요..^^ 항상 ...
-
- 엔젤조
- 2001.07.10 21:08
- 0 COMMENTS
- /
- 0 LIKES
-
- peritus
- 2001.07.10 19:35
- 0 COMMENTS
- /
- 0 LIKES
-
-
-
블랙봉•2001.07.10 19:16FormatMaskText('A-00000-0000000;0', StringGrid.Cells[iCol,iRow]) 이방인 wrote: > string grid내용...
-
이방인•2001.07.10 19:42FormatMaskText('A-00000-0000000;0', StringGrid.Cells[iCol,iRow]) 이런식으로 바꿔놓고 하면 엑셀로 ...
-
-
- 아기코알라
- •
- 2001.07.10 18:40
- 1 COMMENTS
- /
- 0 LIKES
-
블랙봉•2001.07.10 18:51맞는 지는 모릅니다. 혹시 계산이 잘못 되는 경우는 이 때문이지 않을까요? > end else (begin) > ...
-
- 김대훈
- •
- 2001.07.10 18:34
- 3 COMMENTS
- /
- 0 LIKES
-
블랙봉•2001.07.10 18:44> Edit2.Text := IntToStr(Query2.FieldByName('CstmrID').Value); 윗 부분은 다음과 같이 변환하시면 ...
-
김대훈•2001.07.10 20:36다시 한번 답변 부탁드리겠습니다.. 아래의 소스를 보면 퀴리가 조인으로 결과셋이 나왔는데 필드를 구별...
-
블랙봉•2001.07.11 02:23> > > SQL.Add(' SELECT * '); > > > SQL.Add(' FROM Customers AS a INNER JOIN Customers_Detail AS...
-
- 이성근
- •
- 2001.07.10 18:26
- 1 COMMENTS
- /
- 0 LIKES
-
손•2001.07.12 09:53이성근 wrote: > 델파이 한글판 있나요? > > 또 어디서 구할수 있나요? ㅜ.ㅡ > > c++ 만 하다보니...
-
- 이정현
- 2001.07.10 13:24
- 0 COMMENTS
- /
- 0 LIKES
-
- 한동수
- 2001.07.10 13:23
- 0 COMMENTS
- /
- 0 LIKES
-
- 김성문
- •
- 2001.07.10 09:34
- 1 COMMENTS
- /
- 0 LIKES
procedure TForm1.SpeedButton1Click(Sender: TObject); var strlist1:Tstringlist; Kicho_R : TIniFile; DirInfo: TSearchRec; r,i : Integer; begin StrList1 := TStringList.Create; r := FindFirst(ExtractFilePath(Application.ExeNa...-
박서규•2001.07.10 19:28김성문 wrote: > procedure TForm1.SpeedButton1Click(Sender: TObject); > var strlist1:Tstringlist; K...
-
- 초보..
- •
- 2001.07.10 09:08
- 1 COMMENTS
- /
- 0 LIKES
-
Ben•2001.07.10 20:09초보.. wrote: > 아까 글을 남겼는데 > 처음 남기다 보니깐 나두 모르게 열개정도가 한번에.. 미안합니다...
-
- 부산갈매기
- 2001.07.10 06:52
- 0 COMMENTS
- /
- 0 LIKES
-
- 빙고
- 2001.07.10 06:15
- 0 COMMENTS
- /
- 0 LIKES
-
- xxx
- 2001.07.10 06:10
- 0 COMMENTS
- /
- 0 LIKES
-
- 바보팅이
- •
- 2001.07.10 05:08
- 1 COMMENTS
- /
- 0 LIKES
-
초보•2001.07.14 20:42bde를 업그레이드 시키셔야 하는것 같습니다. 한국볼랜드에 가시면 있는것 같은데...
-
- 김대훈
- •
- 2001.07.10 03:57
- 1 COMMENTS
- /
- 0 LIKES
-
사발우성•2001.07.10 04:23edit1.text := fieldbyname('int').asstring; 또는 edit1.text := inttstr(fieldbyname('int').asintege...
> procedure TForm1.SpeedButton1Click(Sender: TObject);
> var strlist1:Tstringlist; Kicho_R : TIniFile; DirInfo: TSearchRec; r,i : Integer;
> begin
> StrList1 := TStringList.Create;
> r := FindFirst(ExtractFilePath(Application.ExeName)+'ini*.ini', FaAnyfile, DirInfo);
> while r = 0 do begin
> if ((DirInfo.Attr and FaDirectory <> FaDirectory) and
> (DirInfo.Attr and FaVolumeId <> FaVolumeID)) then
> StrList1.add(DirInfo.Name);
> r := FindNext(DirInfo);
> end;
>
> for i := 0 to StrList1.count -1 do
> begin
>
> Kicho_R := Tinifile.Create(StrList1[i]);
> Form1.Table1.append;
> Form1.Table1.FieldByName('User_Name').AsString := Kicho_R.readstring('요청인','이름','');
> Form1.Table1.FieldByName('User_Email').AsString := Kicho_R.readstring('요청인','메일주소','');Form1.Table1.Post;
> Kicho_R.Free;
> DbiSaveChanges(Form1.Table1.Handle);
> end;
> strlist1.free;
> Form1.label1.caption:=Kicho_R.readstring('요청인','이름','');
>
> end;
보기 쉽게 컬럼을 제 나름대로 맞춰봤습니다..
procedure TForm1.SpeedButton1Click(Sender: TObject);
var strlist1:Tstringlist;
Kicho_R : TIniFile;
DirInfo: TSearchRec;
r,i : Integer;
begin
StrList1 := TStringList.Create;
r := FindFirst(ExtractFilePath(Application.ExeName)+'ini*.ini', FaAnyfile, DirInfo);
while (r = 0) do
begin
if ((DirInfo.Attr and FaDirectory <> FaDirectory) and
(DirInfo.Attr and FaVolumeId <> FaVolumeID)) then
StrList1.add(DirInfo.Name);
r := FindNext(DirInfo);
end;
for i := 0 to StrList1.count -1 do
begin
Kicho_R := Tinifile.Create(StrList1[i]);
Form1.Table1.append;
Form1.Table1.FieldByName('User_Name').AsString := Kicho_R.readstring('요청인','이름','');
Form1.Table1.FieldByName('User_Email').AsString := Kicho_R.readstring('요청인','메일주소','');Form1.Table1.Post;
Kicho_R.Free;
DbiSaveChanges(Form1.Table1.Handle);
end;
strlist1.free;
Form1.label1.caption:=Kicho_R.readstring('요청인','이름','');
end;
님의 소스인데 이렇게 칸을 정리해서 죄송합니다..
이 소스대로라면 Kicho_R이 for 루프를 돌면서 create,free가 반복되는데 루프를 마치고 나와서
Form1.label1.caption:=Kicho_R.readstring('요청인','이름','');
를 넣게 되면 에러가 나오지 않을까요?