박진수 wrote:

> 쿼리한 내용을 txt 저장하려고 하는데 공백만 나오네요

>

>

> 소스는 다음과 같습니다. 코딩을 덧 붙여주시면 감사하겠습니다.

>

> Q1 := TQuery.Create(Self);

> Q1.Databasename := AliasName;

> Q1.Sql.Clear;

> Q1.Sql.Add(' Select Code,Name,Act,Taste,Contry,CDSize,Memo From Vcd Order by Name Desc');

> Q1.Open;

> SaveDialog1.Execute;

> Q1.First;

> Buffer := ExtractFilePath(SaveDialog1.FileName);

> while not Q1.eof do

> begin

> Writeln(Outf, Q1.Fieldbyname('Code').AsString:8 , ' ',

> Q1.Fieldbyname('Name').AsString:40, ' ',

> Q1.Fieldbyname('Act').AsString:20, ' ',

> Q1.Fieldbyname('Taste').AsString:20, ' ',

> Q1.Fieldbyname('Contry').AsString:10,' ',

> Q1.Fieldbyname('CDSize').AsString:5, ' ',

> Q1.Fieldbyname('Memo').AsString:60 );

> Q1.Next;

> end;

> {$I-}

> AssignFile(OutF, Buffer);

> ReWrite(OutF);

> Write(outF);

> {$I+}





안녕하세여

close 를 해주셔야 합니다..파일..모드를...

꺼주셔야..저장이 됩니다..^^

그럼..

바보감자 wrote:

> 박진수 wrote:

> > 쿼리한 내용을 txt 저장하려고 하는데 공백만 나오네요

> >

> >

> > 소스는 다음과 같습니다. 코딩을 덧 붙여주시면 감사하겠습니다.

> >

> > Q1 := TQuery.Create(Self);

> > Q1.Databasename := AliasName;

> > Q1.Sql.Clear;

> > Q1.Sql.Add(' Select Code,Name,Act,Taste,Contry,CDSize,Memo From Vcd Order by Name Desc');

> > Q1.Open;

> > SaveDialog1.Execute;

> > Q1.First;

> > Buffer := ExtractFilePath(SaveDialog1.FileName);

> > while not Q1.eof do

> > begin

> > Writeln(Outf, Q1.Fieldbyname('Code').AsString:8 , ' ',

> > Q1.Fieldbyname('Name').AsString:40, ' ',

> > Q1.Fieldbyname('Act').AsString:20, ' ',

> > Q1.Fieldbyname('Taste').AsString:20, ' ',

> > Q1.Fieldbyname('Contry').AsString:10,' ',

> > Q1.Fieldbyname('CDSize').AsString:5, ' ',

> > Q1.Fieldbyname('Memo').AsString:60 );

> > Q1.Next;

> > end;

> > {$I-}

> > AssignFile(OutF, Buffer);

> > ReWrite(OutF);

> > Write(outF);

> > {$I+}

>

system.Close(OutF); 했는데 i/o 103에러가 발생하네요

뭐 때문에 그런지는 정말 모르겠네요. 고수님들의 넓은 아량 부탁드립니다.

박진수 wrote:

> 바보감자 wrote:

> > 박진수 wrote:

> > > 쿼리한 내용을 txt 저장하려고 하는데 공백만 나오네요

> > >

> > >

> > > 소스는 다음과 같습니다. 코딩을 덧 붙여주시면 감사하겠습니다.

> > >

> > > Q1 := TQuery.Create(Self);

> > > Q1.Databasename := AliasName;

> > > Q1.Sql.Clear;

> > > Q1.Sql.Add(' Select Code,Name,Act,Taste,Contry,CDSize,Memo From Vcd Order by Name Desc');

> > > Q1.Open;

> > > SaveDialog1.Execute;

> > > Q1.First;

> > > Buffer := ExtractFilePath(SaveDialog1.FileName);

> > > while not Q1.eof do

> > > begin

> > > Writeln(Outf, Q1.Fieldbyname('Code').AsString:8 , ' ',

> > > Q1.Fieldbyname('Name').AsString:40, ' ',

> > > Q1.Fieldbyname('Act').AsString:20, ' ',

> > > Q1.Fieldbyname('Taste').AsString:20, ' ',

> > > Q1.Fieldbyname('Contry').AsString:10,' ',

> > > Q1.Fieldbyname('CDSize').AsString:5, ' ',

> > > Q1.Fieldbyname('Memo').AsString:60 );

> > > Q1.Next;

> > > end;

> > > {$I-}

> > > AssignFile(OutF, Buffer);

> > > ReWrite(OutF);

> > > Write(outF);

> > > {$I+}

> >

> system.Close(OutF); 했는데 i/o 103에러가 발생하네요

> 뭐 때문에 그런지는 정말 모르겠네요. 고수님들의 넓은 아량 부탁드립니다.



closefile(OutF);