readkey funtzioak ez du parametrorik jasotzen, parametrorik ez duelako behar. Bere emaitza teklatuaren karaktere bat da. Hauek dira readkey funtzioaren ezaugarriak:
- readkey funtzioak karaktere bat irakurtzeko balio du
- Teklatua sakatu eta readkey funtzioak teklari dagokion karakterea CHAR datu-motako aldagai batean gordetzen du, hots, readkey funtzioak ez du RETURN beharrik
- Teklaren karakterea jaso eta gero readkey funtzioak ez du karaktere hori pantailan erakusten
- readkey funtzioa ez dago konpiladorearen muinean crt unitatean baizik, horregatik crt unitatea erabiliko dela adieraztea derrigorrezkoa da
Ikusi ere keypressed funtzio boolerra. Tekla bat sakatzean keypressed funtzio boolerrak TRUE itzuliko du. Horregatik programa honen bukaeran, exekuzioa gelditzeko ez dugu readln bat erabiltzen eta repeat until keypressed aginduagatik ordezkatu dugu. Programaren exekuzioa bukatzeko return teklan sakatu beharra dago readln jartzean, baina edozein tekla sakatzea nahikoa da repeat until keypressed agindua jartzean.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 | program readkey_funtzioa ;
uses
crt;
var
cKarak1, cKarak2 : char ;
begin
clrscr ;
writeln('Hasteko readln prozedurak karaktere bat') ;
writeln('nola irakurtzen duen ikus dezagun') ;
writeln('Lehenengo karakterea eman: ') ;
readln(cKarak1) ;
cKarak1 := lowercase(cKarak1) ;
write('Lehenengo karakterea =====>', cKarak1, '<=====') ;
writeln ;
writeln ;
writeln('readkey funtzioaren txanda, funtzio hau') ;
writeln('soilik karaktereekin erabil daiteke') ;
writeln('Bigarren karakterea eman: ') ;
cKarak2 := readkey ;
cKarak2 := lowercase(cKarak2) ;
writeln('Bigarren karakterea =====>', cKarak2, '<=====') ;
writeln ;
writeln ;
writeln ;
writeln('==============================') ;
writeln('Edozein tekla sakatu amaitzeko') ;
writeln('==============================') ;
repeat until keypressed ;
end.
|
|
Hona hemen
ReadKey_funtzioa izeneko programaren exekuzio baten irudia:
iruzkinik ez:
Argitaratu iruzkina