Selasa, 09 Oktober 2012
input, proses, output, dan tipe data
procedure TForm1.Button1Click(Sender: TObject);
//Deklarasi Variable
VAR
a,b : string;
c : integer;
begin
//Pemasukan nilai input ke variable, tombol proses
a := edit1.Text;
b := edit2.Text;
c := strtoint(edit3.Text);
//Pengeluaran nilai output ke komponen
edit4.Text := a;
edit5.Text := b;
edit6.Text := inttostr(c);
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
//Keluar dari aplikasi, tombol keluar
CLOSE;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
//Menghapus nilai dari komponen, tombol hapus
EDIT1.Text := '';
EDIT2.Text := '';
EDIT3.Text := '';
EDIT4.Clear;
EDIT5.Clear;
EDIT6.Clear;
end;
procedure TForm1.Edit1Change(Sender: TObject);
begin
end;
end.
Langganan:
Posting Komentar (Atom)
moga bermanfaat...
BalasHapus