dbgride 取得輸入未保存的字段內容

function   GetDBGridEdit(mDBGrid:   TDBGrid):   TEdit;  
  var  
      I:   Integer;  
  begin  
      Result   :=   nil;  
      with   mDBGrid   do   for   I   :=   0   to   Pred(ComponentCount)   do  
          if   Components[I]   is   TCustomEdit   then   begin  
              Result   :=   TEdit(Components[I]);  
              Break;  
          end;  
  end;   {   GetDBGridEdit   }  
   
  function   GetDBGridEditText(mDBGrid:   TDBGrid):   string;  
  var  
      vEdit:   TEdit;  
  begin  
      vEdit   :=   GetDBGridEdit(mDBGrid);  
      if   Assigned(vEdit)   then  
          Result   :=   vEdit.Text  
      else   Result   :=   '';  
  end;   {   GetDBGridEditText   }  
   
  //demo  
  ShowMessage(GetBGridEditText(DBGrid1));