Slettet bruger
03. maj 2010 - 22:38
Der er
4 kommentarer og 1 løsning
Ignore en 0 værdi i en currencyEdit ved beregning
Fejl: this is not a valid integer value Jeg har følgende kode: var FirstNumber,SecondNumber,LastNumber: Integer; begin FirstNumber := StrToInt(currencyEdit2.Text); SecondNumber := StrToInt(Currencyedit3.Text); LastNumber := StrToInt(Currencyedit4.Text); Currencyedit5.Text :=IntToStr(FirstNumber + SecondNumber + Lastnumber); Currencyedit3.Text og Currencyedit4.Text kan til tider have værdien 0 da der i nogle tilfælde ikke kommer en beregning i de felter. Hvordan kan jeg få den til at "steppe" over og ignorere at værdien i felterne gerne må være 0? Ideen er at kan den ignore de 2 felter som er 0 så skal den bare lægge værdien fra CurrencyEdit2 i CurrencyEdit5.
Annonceindlæg tema
Forsvar & beredskab
Cybersikkerhed, realtidsdata og robuste it-systemer er blevet fundamentet for moderne forsvar.
Jeg forstår ikke hvad det er du vil.. Hvis værdien er nul i edit2 og -3, bliver de vel også "ignorerede". Eller, hvad er det du vil opnå?
Prøv med StrToIntDef(Currencyedit3.Text,0);
I stedet for StrToInt, kan du bruge function MyStrToInt(s:string):integer; begin try if s<>'' then result:= StrToInt(s) else result:=0; except result=0; end; end; Hvis du bruger edit til at taste talværdier i, bør du test validiteten når feltet taber fokus (OnExit) eller gennemgå alle felter før beregning.
Slettet bruger
04. maj 2010 - 06:28
#4
Smid et svar kroning.. Det var nettop løsningen, nu bliver værdien ignoreret hvis den er 0 i de 2 felter. #3 Nej..jeg bruger en valuta edit hvor der kun kan indtastes integer.
Kurser inden for grundlæggende programmering