Kode Delphi UTS Pemrograman 2 While Do dan Case Of Input Awal dan Akhir Teknorat
procedure TForm1.SimpanClick(Sender: TObject);var pilihan, awal, akhir, x : Integer; nama : String; harga, total : Currency;begin LstHasil.Clear; awal:=StrToInt(EdtAwal.Text);...