1.youtable.fieldbyname('youfield').asinteger:=读出来得字符串
2.取得opendialog的文件名
ExtractfileName(opendialog.filename)

解决方案 »

  1.   

    1.var
         Temp  : integer;
      begin
          Temp:= Strtoint(读出来的字符串);
          TableName.FieldByName('字段名').asinteger := Temp;
    2:ExtractFileName(OpenDialog.FileName);
     
          
      

  2.   

    function TestIntNo(Money : String) : Integer;
    var j : Integer; Pass1 : String;
    begin
       if Money = '' then Money := '0';
       for j:= 1 to Length(Money) do
         begin
          if (Money[j] = '1') or (Money[j] = '2') or (Money[j] = '3') or
             (Money[j] = '4') or (Money[j] = '5') or (Money[j] = '6') or
             (Money[j] = '7') or (Money[j] = '8') or (Money[j] = '9') or
             (Money[j] = '0') then
          Pass1 := Pass1+ Money[j];
         end;
        if Pass1 = '' then Pass1 := '0';  
        result := StrToInt(Pass1);
    end;