Advertisement
Guest User

Untitled

a guest
Dec 11th, 2013
123
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. let dotransaction(filename:string,accountNumber:int,currentBalance:string) =    
  2.              let transactions = loadfile filename                                                                                
  3.              let balancearr = currentBalance.Split('.')
  4.                      let kr = System.Int32.Parse(balancearr.[0])
  5.                          let cent = System.Int32.Parse(balancearr.[1])
  6.                          let myAcc = new MyAccount(accountNr = accountNumber, accountCent = cent, accountKr = kr)
  7.                          for itr in transactions do
  8.                              match itr.AccountNr with
  9.                    //här är problemet. accountNumber och itr.AccountNumber matchas alltid oavsett vad
  10.                    // itr.accountnr eller accountnumber är.
  11.                              | accountNumber -> myAcc.ChangeBalance(itr.amountOfKr,itr.amountofCent)
  12.                              | _ -> printfn "%s" "Do not match"
  13.                           let result = myAcc.accountKr.ToString()+"."+myAcc.accountCent.ToString()
  14.                           result
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement