Q&A
- 패러독스 파일을 텍스트 파일로 바꾸는것인데요..
패러독스로 만든 데이터를 텍스트 파일로 바꾸는 것인데요..
dbedit가 5개가 있구요..
dbedit.text를 이용해 그것을 변수에 지정한뒤
writeln으로 파일에다가 쓰려고 하는데
에러는 안나는데 데이터가 있어야할 부분에 공백만 있네요...
코드는 다음과 같구요..
procedure TForm1.Button1Click(Sender: TObject);
var
haha:textfile;
name,address,phone,sex,id:string;
begin
table1.First;
assignfile(haha,'c:database.txt');
rewrite(haha);
repeat
dbedit1.text:=name;
dbedit2.text:=address;
dbedit3.text:=phone;
dbedit4.text:=sex;
dbedit5.text:=id;
writeln(haha,name,';',address,';',phone,';',sex,';',id);
table1.next;
until table1.Eof;
closefile(haha);
end;
이에 대한 출력결과는 다음과 같습니다.
;;;;
;;;;
;;;;
;;;;
;;;;
;;;;
;;;;
즉 세미콜론 사이에 있어야할 데이터는 아마도 데이터를 저장하기 전에
dbedit.text에 null문자가 대입된 모양이네요..
어떻게 해야하죠?
좀 도와주세요...^^
dbedit가 5개가 있구요..
dbedit.text를 이용해 그것을 변수에 지정한뒤
writeln으로 파일에다가 쓰려고 하는데
에러는 안나는데 데이터가 있어야할 부분에 공백만 있네요...
코드는 다음과 같구요..
procedure TForm1.Button1Click(Sender: TObject);
var
haha:textfile;
name,address,phone,sex,id:string;
begin
table1.First;
assignfile(haha,'c:database.txt');
rewrite(haha);
repeat
dbedit1.text:=name;
dbedit2.text:=address;
dbedit3.text:=phone;
dbedit4.text:=sex;
dbedit5.text:=id;
writeln(haha,name,';',address,';',phone,';',sex,';',id);
table1.next;
until table1.Eof;
closefile(haha);
end;
이에 대한 출력결과는 다음과 같습니다.
;;;;
;;;;
;;;;
;;;;
;;;;
;;;;
;;;;
즉 세미콜론 사이에 있어야할 데이터는 아마도 데이터를 저장하기 전에
dbedit.text에 null문자가 대입된 모양이네요..
어떻게 해야하죠?
좀 도와주세요...^^
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 김지건
- •
- 1999.08.19 19:10
- 2 COMMENTS
- /
- 0 LIKES
-
김태균•1999.08.19 19:43제가 한번 구현해 본건데 한번 비교해 보세요. library testdll; uses bde, db, dbtables, dialo... -
김지건•1999.08.19 23:38procedure TForm1.Button1Click(Sender : TObject); begin dbSQLServer.Open; myDllCall(dbSQ...
-
- 이지영
- •
- 1999.08.19 19:08
- 1 COMMENTS
- /
- 0 LIKES
-
이정욱•1999.08.19 21:08안녕하세요? 제 생각은 그럴 수 있다고 말씀을 드리고 싶네요. 저희도 그런적이 한번 있었습니다. ...
-
- 델포
- 1999.08.19 19:04
- 0 COMMENTS
- /
- 0 LIKES
-
- 허일학
- •
- 1999.08.19 18:42
- 2 COMMENTS
- /
- 0 LIKES
-
김태균•1999.08.19 19:17이게 입력하는 거구요. ParamByName('Img').asstring := openpicturedialog1.FileName; 이게 불러오는 ...
-
김시웅•1999.12.20 22:39김태균 wrote: > 이게 입력하는 거구요. > ParamByName('Img').asstring := openpicturedialog1.FileName...
-
- 허일학
- •
- 1999.08.19 10:04
- 1 COMMENTS
- /
- 0 LIKES
-
김태균•1999.08.19 18:11음... 많은 분들이 이미지를 DB에 저장하려고 하는데요 이거는 알고 그러는지 아닌지 모르겠지만 아주 ...
-
- 이리둠
- •
- 1999.08.19 08:18
- 1 COMMENTS
- /
- 0 LIKES
-
김태균•1999.08.19 19:25저는 필요하지 않아서 받은거는 없는데요. Delphi super Page에 가보시면 관련된 컴포넌트들이 꽤 여러...
-
- 강현구
- 1999.08.19 06:26
- 0 COMMENTS
- /
- 0 LIKES
-
- 양효비
- 1999.08.19 04:20
- 0 COMMENTS
- /
- 0 LIKES
-
- 안 류진
- •
- 1999.08.19 03:19
- 1 COMMENTS
- /
- 0 LIKES
-
이정욱•1999.08.19 04:05한델의 팁모아를 가셔서 '기다' 로 검색해 보세요. 그럼. 안 류진 께서 말씀하시기를... > 16비트에...
-
- 심상미
- •
- 1999.08.19 02:44
- 1 COMMENTS
- /
- 0 LIKES
-
정근수•1999.08.20 01:21심상미 께서 말씀하시기를... > 안녕하세요? > 급한건데요. 델파이2.0의 Quickreport로 작성한 것이 > ...
-
- 초보델피언
- •
- 1999.08.19 01:23
- 1 COMMENTS
- /
- 0 LIKES
-
구창민•1999.08.19 05:13초보델피언 께서 말씀하시기를... > 아래 답변이 있긴한데 그걸로는 부족해 제가 다시 질문 합니다. > 레...
-
- 구민오
- •
- 1999.08.19 01:14
- 1 COMMENTS
- /
- 0 LIKES
-
안치봉•1999.08.19 01:18if not RenameFile('OLDNAME.TXT','NEWNAME.TXT') then ErrorMsg('Error renaming file!'); 구민오 ...
-
- 델피
- 1999.08.18 23:37
- 0 COMMENTS
- /
- 0 LIKES
-
- 조복기
- •
- 1999.08.18 23:02
- 1 COMMENTS
- /
- 0 LIKES
-
이정욱•1999.08.18 23:09안냐세요? 일단 한델 팁게시판에 오셔서 '한글'로 검색을 해보세요. 그러면 한글의 조합과 분리를 하...
-
- 델피
- •
- 1999.08.18 21:26
- 1 COMMENTS
- /
- 0 LIKES
-
문창완•1999.08.18 22:06델피 께서 말씀하시기를... > 제가 간단한 아니 간단해보이는 문제를 하나 올릴까합니다. > 키키 > 사실...
-
- 황현동
- •
- 1999.08.18 20:45
- 2 COMMENTS
- /
- 0 LIKES
-
김효석•1999.09.17 03:53황현동 wrote: > onshow 이벤트가 뭐하는 거죠.. 폼 이벤트에 있던데.. > 답변 : 폼이 활성화하기 이전에...
-
구창민•1999.08.18 22:55황현동 께서 말씀하시기를... > onshow 이벤트가 뭐하는 거죠.. 폼 이벤트에 있던데.. > > 품이 뜬다음...
-
- 김우창
- •
- •
- 1999.08.18 19:21
- 1 COMMENTS
- /
- 12 LIKES
패러독스로 만든 데이터를 텍스트 파일로 바꾸는 것인데요.. dbedit가 5개가 있구요.. dbedit.text를 이용해 그것을 변수에 지정한뒤 writeln으로 파일에다가 쓰려고 하는데 에러는 안나는데 데이터가 있어야할 부분에 공백만 있네요... ...-
신인재•1999.08.18 21:01요부분이 반대로 Assign되야 할꺼 같군요... dbedit1.text:=name; dbedit2.text:=address; dbedit3.t...
-
- 하기
- 2001.08.31 00:14
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보
- 2001.07.19 18:15
- 0 COMMENTS
- /
- 0 LIKES
-
- 서재명
- 2001.05.21 04:36
- 0 COMMENTS
- /
- 0 LIKES
dbedit1.text:=name;
dbedit2.text:=address;
dbedit3.text:=phone;
dbedit4.text:=sex;
dbedit5.text:=id;
아니면
name := table1.fields[0].asstring;
address : table1.fields[1].asstring;
phone : table1.fields[2].asstring;
sex : table1.fields[3].asstring;
id : table1.fields[4].asstring;
요런식으로 직접 대입하면 어떨까요...?
김우창 께서 말씀하시기를...
> 패러독스로 만든 데이터를 텍스트 파일로 바꾸는 것인데요..
>
> dbedit가 5개가 있구요..
>
> dbedit.text를 이용해 그것을 변수에 지정한뒤
>
> writeln으로 파일에다가 쓰려고 하는데
>
> 에러는 안나는데 데이터가 있어야할 부분에 공백만 있네요...
>
> 코드는 다음과 같구요..
>
> procedure TForm1.Button1Click(Sender: TObject);
> var
> haha:textfile;
> name,address,phone,sex,id:string;
> begin
> table1.First;
> assignfile(haha,'c:database.txt');
> rewrite(haha);
> repeat
> dbedit1.text:=name;
> dbedit2.text:=address;
> dbedit3.text:=phone;
> dbedit4.text:=sex;
> dbedit5.text:=id;
> writeln(haha,name,';',address,';',phone,';',sex,';',id);
> table1.next;
> until table1.Eof;
> closefile(haha);
> end;
>
> 이에 대한 출력결과는 다음과 같습니다.
> ;;;;
> ;;;;
> ;;;;
> ;;;;
> ;;;;
> ;;;;
> ;;;;
>
> 즉 세미콜론 사이에 있어야할 데이터는 아마도 데이터를 저장하기 전에
>
> dbedit.text에 null문자가 대입된 모양이네요..
>
> 어떻게 해야하죠?
>
> 좀 도와주세요...^^