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;
Temp : integer;
begin
Temp:= Strtoint(读出来的字符串);
TableName.FieldByName('字段名').asinteger := Temp;
2:ExtractFileName(OpenDialog.FileName);
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;