항상 도움을 주셔서 감사합니다.

RunTime시에 Table 또는 Query에 필드를 넣으려 합니다.

각 필드마다 속성과 Size가 달라 어떻게 해야할지 .....

(Calculated가 아닌 DataBase Table 에 있는 Field입니다.)

이경섭 께서 말씀하시기를...

> 공부를 하다가 보니까

> 델파이의 내장함수에 대해서 너무 모르는 것이 많아서

> 부탁을 드립니다.

>

> on-line help 를 뒤져도 만족할 만한 내용은 없는 것 같습니다

> 혹시 어느분이라도 내장함수에 대한 레퍼런스를 가지고 계시다면

> 꼭 좀 도움을 주셨으면 합니다.

>

> 그럼 여러 고수님들의 도움을 부탁드리겠습니다.

> 아울러 미리 감사의 말씀을 올립니다.

> 꾸벅~~



안녕하세요..조복기입니다.



하이텔 비주얼툴동호회 자료실에 델파이2.0용 함수 레퍼런스가 있습니다.

가남사의 '델파이정복'의 부록인데

허락을 받아 올라와있더군요..(97년 7월 up)

뭐 공부에 참고하신다면 4.0하고 2.0하고 크게 변동된게 없을것 같아

보기엔 좋을것 같습니다.

저도 이번기회에 공부를 해야되겠어요..출퇴근하면서..

여기 자료실에 없는것 같아 곧 등록해놓겠습니다..



좋은하루되세요..

권용만 wrote:

> 항상 도움을 주셔서 감사합니다.

> RunTime시에 Table 또는 Query에 필드를 넣으려 합니다.

> 각 필드마다 속성과 Size가 달라 어떻게 해야할지 .....

> (Calculated가 아닌 DataBase Table 에 있는 Field입니다.)

>

>



Table1.FieldDefs.Add를 써보세요...



Table1은 Close 상태여야 하고요.....

신인재 wrote:

> 권용만 wrote:

> > 항상 도움을 주셔서 감사합니다.

> > RunTime시에 Table 또는 Query에 필드를 넣으려 합니다.

> > 각 필드마다 속성과 Size가 달라 어떻게 해야할지 .....

> > (Calculated가 아닌 DataBase Table 에 있는 Field입니다.)

> >

> >

>

> Table1.FieldDefs.Add를 써보세요...

>

> Table1은 Close 상태여야 하고요.....

감사합니다.

해봤는데 잘않되는 군요.

Sample 부탁합니다.

권용만 wrote:

> 신인재 wrote:

> > 권용만 wrote:

> > > 항상 도움을 주셔서 감사합니다.

> > > RunTime시에 Table 또는 Query에 필드를 넣으려 합니다.

> > > 각 필드마다 속성과 Size가 달라 어떻게 해야할지 .....

> > > (Calculated가 아닌 DataBase Table 에 있는 Field입니다.)

> > >

> > >

> >

> > Table1.FieldDefs.Add를 써보세요...

> >

> > Table1은 Close 상태여야 하고요.....

> 감사합니다.

> 해봤는데 잘않되는 군요.

> Sample 부탁합니다.



쩝 죄송합니다. 제가 문제를 잘못 이해 했군요....

아래와 같은 sql로 해당 테이블과 필드로 바꾸고

Query1.sql에 넣구 execsql로 실행해 보세요...쩝

되면 좋구 안되면 dbidorestruct가 하는 BDE api를

써야 되는데 쓰는 방법이 만만치 않군요...쩝



ALTER TABLE "customer.db"

ADD "customer.db"."code" CHAR(3)



음냐 영재님의 팁에서 가져온 것두 있네요... 아래의 코드를 참조하세요



동적으로 필드 생성하기...



procedure TForm1.Button2Click(Sender: TObject);

var

T: TStringField;

begin

Query1.Close;

T := TStringField.Create(Self);

T.FieldName := 'CO_NAME';

T.Name := Query1.Name + T.FieldName;

T.Index := Query1.FieldCount;

T.DataSet := Query1;

Query1.FieldDefs.UpDate;

Query1.Open;

end;



동적으로 생성한 필드 Free 시키기...



procedure TForm1.Button1Click(Sender: TObject);

var

TC: TComponent;

begin

TC := FindComponent('Query1CO_NAME');

if not (TC = nil) then begin

Query1.Close;

TC.Free;

Query1.Open;

end;

end;