Új hozzászólás Aktív témák

• #994 QuarK senior tag zolika- #992

  Új Válasz 2006-03-09 15:17:53 #994

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  QuarK

  senior tag

  válasz zolika- #992 üzenetére

  Előre is bocsi a szájbarágó stílusért, de akkor leírom még egyszer, mindent megmagyarázva... Meg egy picit valtoztattam is.
  
  uses crt;
  crt unitot hasznaljuk; abban van a keypressed() es a readkey() fuggveny
  
  var ch : char;
  a ch valtozoban taroljuk majd a karakter erteket
  
  begin
   repeat
   ciklust inditunk
    ch := #0;
    Ez ilyen formasag, kezdoerteknek legyen a karakter erteke 0.
    if KeyPressed then
     begin
     Ha lett billentyu lenyomva, akkor beolvassuk, mit kaptunk
      ch := ReadKey;
      if ( ch = #0) then
      Ha 0-t kapunk, az azt jelenti, specialis karakter fog kovetkezni...
      pl ESC eseten egy #0-t, majd #27-et kapunk, fel gomb eseten.
      Ha meg pl. a fel gombot, akkor #0, majd 'H'-t (#72).
      Ilyenkor tehat meg egyszer beolvassuk a karaktert
       ch := ReadKey;
      Write( UpCase( ch));
      Kiirjuk a nagybetusitett valtozatot
     end;
   until ( ch = #27);
   ESC billentyut utottunk? Ha igen, kilepes a ciklusbol
  end.
  
  [Szerkesztve]

Új hozzászólás Aktív témák