Q&A

  • select문
Assignfile(f1,'e:23.txt');

rewrite(f1);

While NOT EOF do Begin

s := fieldbyname('custno').asstring + ' '+ fieldbyname('company').asstring;

writeln(f1,s);

next;

end;

system.close(f1);

end;

에서요..자료 s:s := fieldbyname('custno').asstring + ' '+ fieldbyname('company').asstring; 부분으로 처리되면 txt에는



1351 Sight Diver

식으로 저장됩니다.... 이부분을 '1351' "custno", sight diver "company" 하려면

어떻게 해야 하나요

1  COMMENTS
  • Profile
    남기석 2000.09.20 22:16
    이건 Select 문에 대한 질문이라기 보다는

    String 처리에 대한 질문인 것 같네요...



    S 에 값을 대입할 때 이렇게 해 보세요...



    s := '''' + fieldbyname('custno').asstring + '''' + ' "CustNo", '

    + fieldbyname('company').asstring + ' "Company"';



    =================================================================================



    ajfxlspt wrote:

    > Assignfile(f1,'e:23.txt');

    > rewrite(f1);

    > While NOT EOF do Begin

    > s := fieldbyname('custno').asstring + ' '+ fieldbyname('company').asstring;

    > writeln(f1,s);

    > next;

    > end;

    > system.close(f1);

    > end;

    > 에서요..자료 s:s := fieldbyname('custno').asstring + ' '+ fieldbyname('company').asstring; 부분으로 처리되면 txt에는

    >

    > 1351 Sight Diver

    > 식으로 저장됩니다.... 이부분을 '1351' "custno", sight diver "company" 하려면

    > 어떻게 해야 하나요