IKT i praksis - Pascal |
|
Problem med komma og punktumSidan vi på norsk brukar komma som desimaltikn, blir det av og til konflikt ved bruk av ulike funskjonar og prosedyrar. For eksempel vil funksjonen val(streng,talet,kode) returnere feilmelding dersom talet i inndatastrengen inneheld komma. Dette kan skje dersom verdien blir henta direkte frå for eksempel Edit1.Text. Funksjonen gjer om ein talstreng i variabelen streng til eit tal som blir returnert i talet. Er det ingen feil i omgjeringa, returnerer kode null. Er det feil, blir plasseringa av feilen vist. For å sikre at inndataane inneheld punktum som desimalskiljeteikn, laga eg denne rutinen:
function settDesimalpuntum(s: String): String; Når ein kallar opp ein funksjon som krev punktum som desimalteikn, kan ein gjere dette for eksempel slik:
procedure sjekkInnskriving; Prosedyren les inn verdien i edtInn.Text, byter
ut komma med punktum dersom komma er brukt, og legg verdien i
s. Resultatet blir skriven ut til edtInn.Text. Nå treng ein ikkje omforme til komma. dette blir gjort automatisk i utskrivinga. |
|
© Innhald og design: Kolbjørn Stuestøl | Stuestøl heimeside | Sist endra 9. august 2017 |