uses crt; var i:integer; s:string; begin for i := 0 to 255 do begin s:=''; case (i) of 32..47, 58..64, 91..96, 123..255 : s:='Ozel : '; 48..57 : s:='Sayi : '; 65..90,97..122: s:='Harf : '; end; if s<>'' then writeln(s,' ',i,' ',chr(i)); end; readln; end. Delphi procedure TForm1.FormCreate(Sender: TObject); …
Devamını Oku »Object Pascal / Delphi Ascii Tablo
