文本所有数字相加

function GetNumSumFromStr(Str: string): Integer;     function IsNumber(SoureChar: Char): Boolean;     begin       Result := False;       if (Ord(SoureChar) >= 48) and (Ord(SoureChar) <= 57) then         Result := True;     end;     function AddNum(SearthStr: string): string;     var       I: Integer;     begin       Result := '';       I := 1;       while(IsNumber(SearthStr[I]))do       begin        Result := Result + SearthStr[I];        Inc(I);       end;     end; var I: Integer; Sum: Integer; Temp: string; begin Result := 0; I := 1 ; while I <= Length(Str) do begin     if (i <> Length(Str)) and (IsNumber(str[i])) then     begin       Temp := AddNum(Copy(Str, I, Length(Str)));       Result := Result + StrToInt(Temp);       Inc(I, Length(Temp) + 1);     end else       Inc(i); end; end;