多给分的简单问题，求教关于写库的技巧

Question

  要写个通用的过程，关于float和integer类型，从一个库写到另一个库，如果float和integer为0则不写，不为0则加一boolean判断是否写库，急！！！！

Answer 1

var
  I:Integer;
  J:Double;
  procedure Insert(a:Double);
  begin
    if a <> 0 then
    begin
      showmessage( floattostr( a ) );
    end;
  end;
begin
  I:=10;
  J:=10.11;
  Insert( I );
  Insert( J );
end;

Answer 2

function g_GetFieldValue(const DataSet: TDataSet; fieldName: string; var writeDB: boolean): Variant;
var
  retValue: Variant;
begin
  writeDB:= false;
  Result := Unassigned;
  if DataSet.State=dsInactive then Exit;
  retValue := DataSet[fieldName];
  if retValue<>NULL then Result := retValue;
  writeDB := ((DataSet.FieldByName(fieldName).FieldKind=ftInteger) or
             (DataSet.FieldByName(fieldName).FieldKind=ftSmallint) or
             (DataSet.FieldByName(fieldName).FieldKind=ftFloat) or ...) and  //...表示还有其他数字类型
             (Result<>Unassigned);
  if writeDB then result := result+1;
end;

Answer 3

再写一个从非数据集取。function g_GetNumericValue(var value: double): boolean;
begin
  result := false;
  if value=0 then exit;
  value := value+1;
  result := true;
end;

Answer 4

hongqi162 
失踪的月亮 
等 级：
 发表于：2007-10-17 13:10:116楼 得分:0 
你的需求本来也不明确，你想要怎样合适的，踏实点吧 
 起码要给一个库到库的答复吧，流程大家心里都有数了，一点细节都没涉及咯答案也没意义了吧