请问在delphi4.0中如何在程序运行时建立和删除虚拟字段?(100分)

H

Hoy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-09-20

• #1

 

A

Another_eYes

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-09-20

• #2

var
virtualfield : TField;
begin
virtualfield := TField.Create(form1);
virtualfield.fieldkink := fkCalulated;
table1.fields.add(virtualfield); // 建立
table1.fields.remove(virtualfield); // 删除
end;

 

L

Liu JZX

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-09-20

• #3

var
tt:TIntegerField;
procedure TForm1.Button1Click(Sender: TObject);
begin
tt:=TIntegerField.Create(self);
tt.FieldName := 'Test1' ;
tt.FieldKind:=fkCalculated;
tt.DataSet:=table1;
table1.active:=true;
end;

 

S

SeaSky

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-07

• #4

接受答案了.

 

S

SeaSky

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-07

• #5

对不起， 分数给错了， 分数应该是Liu JZX的， Another_eyes的字段没有
申明字段类型。