delphi顯示Sqlite的Text欄位

標籤：

 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 begin11   with DataSet do12   begin13     DisableControls ;14     try15       for i := 0 to FieldCount -1 do16       begin17         if Fields[i] is TMemoField then18           Fields[i].OnGetText := Mainform.SetField;19       end;20     finally21       EnableControls ;22     end;23   end;24 end;

 

delphi顯示Sqlite的Text欄位