Tabela ASCII em Delphi

O mesmo programa que o anterior só que em Delphi:

ASCII Delphi

 unit Unit1;  
 interface  
 uses  
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  
  Dialogs, StdCtrls;  
 type  
  TForm1 = class(TForm)  
   ListBox1: TListBox;  
   Button1: TButton;  
   procedure Button1Click(Sender: TObject);  
  private  
   { Private declarations }  
  public  
   { Public declarations }  
  end;  
 var  
  Form1: TForm1;  
 implementation  
 {$R *.dfm}  
 procedure TForm1.Button1Click(Sender: TObject);  
 var  
  i : Integer;  
 begin  
  for i := 0 to 255 do  
  begin  
   ListBox1.Items.Add(IntToStr(i)+' '+chr(i));  
  end;  
 end;  
 end.  

ASCII Delphi

Nenhum comentário:

Postar um comentário