Q&A
- 이거 해석해서 주석좀 달아 주세요..
procedure TForm1.Button2Click(Sender: TObject);
var
str : String;
i,j : integer;
F : TExTFile;
begin
if query1.isempty then Exit;
saveDialog1.Filter := '*.dat|*.dat';
if saveDialog1.Execute then begin { Display Open dialog box }
AssignFile(F, saveDialog1.FileName +'.dat');
ReWrite(F);
for j := 0 to dbgrid1.Columns.Count - 1 do begin
if j = 0 then str := dbgrid1.Columns.Items[j].title.caption
else str := Str + ',' + dbgrid1.Columns.Items[j].title.caption;
end;
Writeln(f,str);
for i := 1 to query1.RecordCount do
begin
str := '';
for j := 0 to dbgrid1.Columns.Count - 1 do begin
if j = 0 then
begin
str := query1.FieldList.fieldbyname(dbgrid1.Columns.Items[j].FieldName).AsString;
end
else
begin
str := Str + ',' + query1.FieldList.fieldbyname(dbgrid1.Columns.Items[j].FieldName).AsString ;
end;
end;
Writeln(f,str);
query1.Next;
end;
closeFile(F);
end;
델파이 초보입니다. 이거 해석해서 주석좀 달아주세요 부탁합니다.
저의 맬은 smsminsu@hanmail.net 입니다..
var
str : String;
i,j : integer;
F : TExTFile;
begin
if query1.isempty then Exit;
saveDialog1.Filter := '*.dat|*.dat';
if saveDialog1.Execute then begin { Display Open dialog box }
AssignFile(F, saveDialog1.FileName +'.dat');
ReWrite(F);
for j := 0 to dbgrid1.Columns.Count - 1 do begin
if j = 0 then str := dbgrid1.Columns.Items[j].title.caption
else str := Str + ',' + dbgrid1.Columns.Items[j].title.caption;
end;
Writeln(f,str);
for i := 1 to query1.RecordCount do
begin
str := '';
for j := 0 to dbgrid1.Columns.Count - 1 do begin
if j = 0 then
begin
str := query1.FieldList.fieldbyname(dbgrid1.Columns.Items[j].FieldName).AsString;
end
else
begin
str := Str + ',' + query1.FieldList.fieldbyname(dbgrid1.Columns.Items[j].FieldName).AsString ;
end;
end;
Writeln(f,str);
query1.Next;
end;
closeFile(F);
end;
델파이 초보입니다. 이거 해석해서 주석좀 달아주세요 부탁합니다.
저의 맬은 smsminsu@hanmail.net 입니다..
2
COMMENTS
-
-
^-_-^ wrote:
> yo`
>
> 흠..쿼리를...텍스트 파일로 저장 하는것 같네요...
>
> ^^'' 걍 밑에 주석좀 달겟슴돠...
>
> 델초보 wrote:
> > procedure TForm1.Button2Click(Sender: TObject);
> > var
> > str : String;
> > i,j : integer;
> > F : TExTFile;
> > begin
> > if query1.isempty then Exit;
> > saveDialog1.Filter := '*.dat|*.dat';
> > if saveDialog1.Execute then begin { Display Open dialog box }
>
> =:> 저장대화상자를 열어서 저장파일을 정함...
> > AssignFile(F, saveDialog1.FileName +'.dat');
>
> =:> 파일명을 얻어 파일을 정의(??)한다.
>
> > ReWrite(F);
>
> =:> 새로쓰기로 파일을 연다...(reset()은 기존의 파일의 내용을 지우지않고 염)
>
> > for j := 0 to dbgrid1.Columns.Count - 1 do begin
> > if j = 0 then str := dbgrid1.Columns.Items[j].title.caption
> > else str := Str + ',' + dbgrid1.Columns.Items[j].title.caption;
> > end;
>
> =:> 디비그리드의 타이틀 캡션을 구해서 str에 저장
>
> > Writeln(f,str);
>
> =:> str을 파일에 씀!! (끝에 라인피드가 들어감돠..)
> > for i := 1 to query1.RecordCount do
> > begin
> > str := '';
> > for j := 0 to dbgrid1.Columns.Count - 1 do begin
> > if j = 0 then
> > begin
> > str := query1.FieldList.fieldbyname(dbgrid1.Columns.Items[j].FieldName).AsString;
> > end
> > else
> > begin
> > str := Str + ',' + query1.FieldList.fieldbyname(dbgrid1.Columns.Items[j].FieldName).AsString ;
> > end;
> > end;
>
> =:> 데이터를 수집...
>
> > Writeln(f,str);
>
> =:> 파일로 저장
> > query1.Next;
> > end;
> > closeFile(F);
>
> =:> 파일을 닫음 (closefile를 걸어야 저장됨다...이거 안하면 말짱 도루묵..)
> > end;
> >
> > 델파이 초보입니다. 이거 해석해서 주석좀 달아주세요 부탁합니다.
> > 저의 맬은 smsminsu@hanmail.net 입니다..
>
> 그럼 허접한 주석이었슴돠!! 도움이 되셨는지 몰겟네영...
>
> 그럼..휘리릭~~
>
> bLue bLood.
>
감사감사......^^*
많은 도움이 될것같네여..
(NOTICE) You must be logged in to comment on this post.
-
- 저기요*^.^*
- 2001.03.14 01:40
- 0 COMMENTS
- /
- 0 LIKES
-
- 궁금이
- 2001.03.14 01:17
- 0 COMMENTS
- /
- 0 LIKES
-
- 불쌍이
- 2001.03.14 01:09
- 0 COMMENTS
- /
- 0 LIKES
-
- 장훈이
- 2001.03.14 00:51
- 0 COMMENTS
- /
- 0 LIKES
-
- 버그
- 2001.03.14 00:44
- 0 COMMENTS
- /
- 0 LIKES
-
- 김용석
- •
- 2001.03.14 00:34
- 1 COMMENTS
- /
- 0 LIKES
-
바보감자•2001.03.14 04:04김용석 wrote: > DB에서 읽은 스트링값에서 따옴표를 제거하는 방법을 알고 싶습니다. > 백업을 하려고 ...
-
- 박홍근
- 2001.03.13 23:59
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보델파이
- 2001.03.13 23:24
- 0 COMMENTS
- /
- 0 LIKES
-
- 정은영
- 2001.03.13 23:20
- 0 COMMENTS
- /
- 0 LIKES
-
- 노가다
- 2001.03.13 22:38
- 0 COMMENTS
- /
- 0 LIKES
-
- 델초보
- •
- 2001.03.13 20:40
- 1 COMMENTS
- /
- 0 LIKES
-
나두초보•2001.03.14 05:30델초보 wrote: > 저는 DBGrid에서 바로 저장을 할려고 하는데요 > 현재 입력된 내용이 저장되기전에 값을...
-
- 시도당
- •
- 2001.03.13 20:23
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.03.13 21:10안녕하세요. 최용일입니다. 요약하면...... 델파이 표준폴더(LIB폴더같은곳)나, 새로운 폴더를 하나 ...
-
- Demian
- •
- 2001.03.14 04:22
- 2 COMMENTS
- /
- 0 LIKES
-
하눌이•2001.03.14 04:23Demian wrote: > ORA-01843 에러인데요.. 지정한 월이 부적합하다고 나오는데.. > 왜 이런 에러가 생기는...
-
BLUE•2001.03.14 04:23하눌이 wrote: > Demian wrote: > > ORA-01843 에러인데요.. 지정한 월이 부적합하다고 나오는데.. > > ...
-
- dol
- 2001.03.13 18:26
- 0 COMMENTS
- /
- 0 LIKES
-
- 곽동수
- •
- 2001.03.13 08:32
- 1 COMMENTS
- /
- 0 LIKES
-
타락천사•2001.03.13 21:09안녕하세여..타락임다..^^ 흠.. 전 어려운거 하구 골치아픈 건 딱! 질색임다..^^ 흠... 제가 동일한 ...
-
- 원
- 2001.03.13 07:20
- 0 COMMENTS
- /
- 0 LIKES
-
- 조태근
- •
- 2001.03.13 14:55
- 4 COMMENTS
- /
- 0 LIKES
-
^-_-^•2001.03.13 14:56yo` 흠!! zeos는 odbc/bde/ado 를 젼혀 사용하지 않습니다. 완전 프리죠!! :) libmysql.dll를 같이 ...
-
조태근•2001.03.13 17:41에러문은 다음과 같읍니다. Exception EDBEngine Eroor in module project.exe at 000a8916 an error o...
-
^-_-^•2001.03.13 19:06yo` 흠!.. 그 에러는..bde의 환경 혹은 bde가 깨지거나, 머 그럴때 나타나는것 같던데.. 흠...--aa ...
-
조태근•2001.03.13 20:34고맙습니다. 제가 미쳐 생각을 못했읍니다. Form 파일에 DBProgree 콤포넌트가 있더군요.. 그것을 지우...
-
- 써니
- •
- 2001.03.13 06:41
- 1 COMMENTS
- /
- 0 LIKES
-
mafioso•2001.03.13 18:46써니 wrote: > 예를들어 2000년도 2월이라고 에디트에 입력이 되면 > 10000일중에서 2000년2월에 해당...
-
- 델초보
- •
- 2001.03.13 06:31
- 2 COMMENTS
- /
- 0 LIKES
procedure TForm1.Button2Click(Sender: TObject); var str : String; i,j : integer; F : TExTFile; begin if query1.isempty then Exit; saveDialog1.Filter := '*.dat|*.dat'; if saveDialog1.Execute then begin { Display Open dialo...-
^-_-^•2001.03.13 09:05yo` 흠..쿼리를...텍스트 파일로 저장 하는것 같네요... ^^'' 걍 밑에 주석좀 달겟슴돠... 델초보...
-
델초보•2001.03.13 20:50^-_-^ wrote: > yo` > > 흠..쿼리를...텍스트 파일로 저장 하는것 같네요... > > ^^'' 걍 밑에 주석...
-
- 김한석
- •
- 2001.03.13 06:21
- 2 COMMENTS
- /
- 0 LIKES
-
^-_-^•2001.03.13 09:15yo` 흠!! ADO는 잘 모르겟고...ODBC나 Zeos를 함 사용해 보시죠!! ASP는 해보지 않아서 잘 모르겟지...
-
왕초보•2001.03.13 18:20ASP 의 경우는 Server Side Script 즉 DB 연결이 서버상에서 이루어지기 때문에 당근 Client 쪽에 어떤 프...
흠..쿼리를...텍스트 파일로 저장 하는것 같네요...
^^'' 걍 밑에 주석좀 달겟슴돠...
델초보 wrote:
> procedure TForm1.Button2Click(Sender: TObject);
> var
> str : String;
> i,j : integer;
> F : TExTFile;
> begin
> if query1.isempty then Exit;
> saveDialog1.Filter := '*.dat|*.dat';
> if saveDialog1.Execute then begin { Display Open dialog box }
=:> 저장대화상자를 열어서 저장파일을 정함...
> AssignFile(F, saveDialog1.FileName +'.dat');
=:> 파일명을 얻어 파일을 정의(??)한다.
> ReWrite(F);
=:> 새로쓰기로 파일을 연다...(reset()은 기존의 파일의 내용을 지우지않고 염)
> for j := 0 to dbgrid1.Columns.Count - 1 do begin
> if j = 0 then str := dbgrid1.Columns.Items[j].title.caption
> else str := Str + ',' + dbgrid1.Columns.Items[j].title.caption;
> end;
=:> 디비그리드의 타이틀 캡션을 구해서 str에 저장
> Writeln(f,str);
=:> str을 파일에 씀!! (끝에 라인피드가 들어감돠..)
> for i := 1 to query1.RecordCount do
> begin
> str := '';
> for j := 0 to dbgrid1.Columns.Count - 1 do begin
> if j = 0 then
> begin
> str := query1.FieldList.fieldbyname(dbgrid1.Columns.Items[j].FieldName).AsString;
> end
> else
> begin
> str := Str + ',' + query1.FieldList.fieldbyname(dbgrid1.Columns.Items[j].FieldName).AsString ;
> end;
> end;
=:> 데이터를 수집...
> Writeln(f,str);
=:> 파일로 저장
> query1.Next;
> end;
> closeFile(F);
=:> 파일을 닫음 (closefile를 걸어야 저장됨다...이거 안하면 말짱 도루묵..)
> end;
>
> 델파이 초보입니다. 이거 해석해서 주석좀 달아주세요 부탁합니다.
> 저의 맬은 smsminsu@hanmail.net 입니다..
그럼 허접한 주석이었슴돠!! 도움이 되셨는지 몰겟네영...
그럼..휘리릭~~
bLue bLood.