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

• #1770 Rover623 félisten Rover623 #1768

  Új Válasz 2007-03-27 15:23:15 #1770

  Ú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

  

  Rover623

  félisten

  válasz Rover623 #1768 üzenetére

  Elcsesztem az egyszerűsítést...
  
  Helyesen:
  
  If (betu>='a') and (betu<='z') then dec(betu,ord('a')-ord('A'));
  
  Vagy az eredeti, assemblyben:
  
  ; UpCase standard function
  
  UpperCase:
  
  MOV BX,SP
  MOV AL,SS:[BX+4]
  CMP AL,'a'
  JB @@1
  CMP AL,'z'
  JA @@1
  SUB AL,'a'-'A'
  @@1: RETF 2
  
  
  [Szerkesztve]

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