Contoh Program Delphi Menukarkan Isi Variabel

Bismillah...

Coret-coret dulu ah mumpung mood ku lagi dateng bulan.
Kemarin sempat dapet tugas praktikum, bunyinya sebagai berikut :

Buatlah program untuk menukarkan isi antara dua buah variabel.
Misal :
Variabel A = 10
Variabel B = 15
Ketika program dijalankan maka hasilnya adalah :
A = 15
B = 10

Bakar dulu ah, hehehh... 

Awalnya bingung juga sih, tapi setelah cari contoh kasusnya di google ternyata ada salah satu artikel yang pas begete. Artikelnya bisa sobat lihat disini .

Nggak puas hanya dengan copas, programnya aku manipulasi sedikit aja.  Hasilnya bisa kalian lihat seperti gambar dibawah :

Interface program yang saya manipulasi diatas masih bisa sobat-sobit edit sesuai dengan jiwa seni yang dimiliki, intinya jangan keluar sama coding dibawah ini :
//button1_Hitung
var a, b : integer; 
begin
a := strtoint(edit1.text);
b := strtoint(edit2.text);
edit3.text := inttostr (a);
edit4.text := inttostr (b);
end;
//button2_Reset
edit1.text := ' ';
edit2.text := ' ';
edit3.text := ' ';
edit4.text := ' ';
edit1.setfocus;
end; 

end.

Capek juga ya nulis coding, karena harus ekstra hati-hati, kalau nggak hati-hati programnya bisa jadi error.

Setelah semuanya beres, tahap selanjutnya kita lihat hasil program yang telah dibuat, caranya tekan f9 pada keyboard. Jika berhasil, langkah terakhir adalah menyimpan project yang sudah kita bikin, caranya pilih menu file --> save all. 

Untuk memastikan file .exe benar-benar telah diciptakan, silahkan teman-teman tekan f9 lagi, setelah itu masuk lagi ke menu file--> save.

Demikian coret-coret kali ini, semoga bermanfaat untuk kawan-kawan khususnya untuk diri saya pribadi.

Yang hobi copas jangan lupa yah cantumkan link sumber saya "berbagi link itu indah".