패러독스로 만든 데이터를 텍스트 파일로 바꾸는 것인데요..
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문자가 대입된 모양이네요..
어떻게 해야하죠?
좀 도와주세요...^^
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문자가 대입된 모양이네요..
>
> 어떻게 해야하죠?
>
> 좀 도와주세요...^^