delphi显示Sqlite的Text字段

浏览数：26 / 时间：2015年06月12日 
 1 procedure Mainform.SetField(Sender: TField; var Text: string;
 2   DisplayText: Boolean);
 3 begin
 4   Text := Sender.AsString ;
 5 end;
 6 
 7 procedure TClientform.UniQuery1AfterOpen(DataSet: TDataSet);
 8 var
 9   i :Integer ;
10 begin
11   with DataSet do
12   begin
13     DisableControls ;
14     try
15       for i := 0 to FieldCount -1 do
16       begin
17         if Fields[i] is TMemoField then
18           Fields[i].OnGetText := Mainform.SetField;
19       end;
20     finally
21       EnableControls ;
22     end;
23   end;
24 end;

 

郑重声明：本站内容如果来自互联网及其他传播媒体，其版权均属原媒体及文章作者所有。转载目的在于传递更多信息及用于网络分享，并不代表本站赞同其观点和对其真实性负责，也不构成任何其他建议。

标签： class style log it la sp for as display class style log it la sp for as display

相关文章

随机文章

您可能还喜欢

您可能还喜欢