2012-04-19 20 views
3

我使用這個代碼在運行時創建一組字段如何使用的ClientDataSet

ClientDataSet1.FieldDefs.Add('ID', ftInteger, 0); 
    ClientDataSet1.FieldDefs.Add('Serial', ftInteger, 0); 
    ClientDataSet1.FieldDefs.Add('Customer', ftString, 40); 
    ClientDataSet1.FieldDefs.Add('Address', ftString, 40); 
    ClientDataSet1.CreateDataSet; 

現在,我想使某些領域強制性的,我怎麼可以定義創建了一個場創建運行時爲必填字段在運行時爲強制?

回答

10

add方法有一個名爲第四個參數需要

procedure Add(const Name: string; DataType: TFieldType; Size: Integer = 0; 
    Required: Boolean = False); 

該值設置爲True和你的領域將是強制性的。

典範之作強制性現場ID使用此代碼

ClientDataSet1.FieldDefs.Add('ID', ftInteger, 0, True);