发信人: finlove (荒野之狼), 信区: BorlandDev
标  题: 运行时创建、删除TField  
发信站: 哈工大紫丁香 (Tue Jan 22 12:21:34 2002) , 转信


 

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; 

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; 




--

※ 来源:．哈工大紫丁香 http://bbs.hit.edu.cn [FROM: 211.97.214.52]