"Newbiing Mee" <lasse@biha.dk> skrev i en meddelelse
news:5582895aea02dbbf927996ec0e2f3154.113715@mygate.mailgate.org...
> Hej!
>
> Jeg er lidt i tvivl om, hvad denne ObjectPascal funktion
gør/udretter:::
>
>
> FUNCTION InWord (x,y: BYTE) : WORD;
> { Denne funktion udfører.....}
> { WORD er en indbygget taltype med domænet 0-65535 }
> CONST
> EOL = CHR (13); {Retur-tastens tegnværdi }
> VAR
> ch : CHAR;
> value : WORD;
> BEGIN
> GoToXY (x, y);
> ClrEol;
> value := 0;
> REPEAT
> REPEAT
> ch := ReadKey;
> UNTIL (ch IN ['0'..'9']) OR (ch=EOL);
> IF ch<>EOL THEN
> BEGIN
> Write (ch);
> value := value*10 + (ORD(ch)- ORD('0'));
> END;
> UNTIL ch=EOL;
> InWord := value
> END;
>
Det ligner en indtastningsrutine til en lommeregner ell. lign. Det vil
sikkert kunne køre på Turbo Pascal (og sikkert også under Delphi som en
konsol-applikation hvis det bliver omskrevet en smule).
Funktionen placerer en tekstcursor der hvor du angiver det ved x,y og
venter derefter på at du indtaster et af cifrene 0 til 9 eller afslutter
med Enter. Cifrene bliver vist et efter et når du trykker på en af
nummertasterne. Når du afslutter med Enter, har du i 'value' værdien af
det tal du indtastede (dog så vidt jeg kan se i omvendt rækkefølge, dvs.
du starter med at indtaste etterne, dernæst tierne, hundrede osv.).
--
M.v.h.
Olav
http://www.experit.dk
Fjern intet for at skrive til mig