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문자가 대입된 모양이네요..



어떻게 해야하죠?



좀 도와주세요...^^

1  COMMENTS
  • Profile
    신인재 1999.08.18 21:01
    요부분이 반대로 Assign되야 할꺼 같군요...

    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문자가 대입된 모양이네요..

    >

    > 어떻게 해야하죠?

    >

    > 좀 도와주세요...^^