Tulisan Biasa Penulis

Diatas adalah Tampilan Program nya, berikut ini source code nya  procedure TForm2.Button1Click(Sender: TObject); var x:String; y:byte; begin for y:=length(Edit1.Text) downto 1 do begin x:=x+Edit1.Text[y]; end; Edit2.Text:=x; end; end.

Seperti diatas Tampilan Program nya, selanjutnya samakan saja Komponen nya berupa label, edit ,button dan juga memo. Berikut Source code nya : procedure TForm1.Button1Click(Sender: TObject); VAR X,BATAS,AWAL:INTEGER; begin Memo1.Clear; AWAL := StrToInt(Edit1.Text); X:=AWAL; BATAS := StrToInt(Edit2.Text); REPEAT X:= X + 1; Memo1.Lines.Add(IntToStr(X)); UNTIL (X > BATAS); end; end.

Seperti diatas tampilan Program nya. Buat seperti tampilan diatas yaitu : Label, Button, dan juga Memo. Selanjutnya Ketikan source code seperti dibawah ini, klik 2x pada button  : procedure TForm1.Button1Click(Sender: TObject); VAR BATAS,AWAL,X:INTEGER; begin Memo1.Clear; AWAL:=StrToInt(Edit1.Text); BATAS:=StrToInt(Edit2.Text); X:=AWAL; WHILE X < BATAS DO BEGIN X:=X+1; Memo1.Lines.Add(IntToStr(X)); END; end;

Diatas adalah tampilan program nya sesuaikan seperti pada gambar diatas komponen berupa: 2 Tabel 2 edit 1 Button 1 Memo Klik 2x Pada Button isikan source code ini :  procedure TForm1.Button1Click(Sender: TObject); VAR BATAS,AWAL,X:INTEGER; begin Memo1.Clear; BATAS:=StrToInt(Edit2.Text); AWAL:=StrToInt(Edit1.Text); FOR X:=AWAL TO BATAS DO BEGIN Memo1.Lines.Add(IntToStr(X)); END; end; end.

Pertama Buat tampilan seperti dibawah ini : Baca juga Procedure Non Parameter  Link Buat Variabel global : var   Form1: TForm1;   A,B,C:INTEGER; implementation Bila sudah, buat procedure , lalu tekan ctrl + shift + c Isikan seperti dibawah ini : procedure TForm1.TAMBAH(X, Y: INTEGER); begin C:=X+Y; END; KLik 2x pada Button procedure TForm1.Button1Click(Sender: TObject); begin C:= StrToInt(Edit1.Text); B:= StrToInt(Edit2.Text); // memanggil procedure Tambah dengan nilai parameter A dan B Tambah(A,B); // tuliskan nilai C pada edit3 Edit3.Text:=IntToStr(C); end; end. Semoga bermanfaat :)

Ini hanya contoh sederhana sekedar menjelaskan Membuat Procedure Non Parameter pada Delphi 7 . Buat Tampilan Seperti diatas Setelah itu tekan F12 Buat procedure letakan seperti diatas setelah itu tekan ctrl+shift+c Sebelum nya Buat terlebih dahulu Variabel Global, pada gambar saya menggunakan Form2, tetapi kalo punya teman-teman form1 jangan bingung. Setelah itu kembali lagi pada Procedure tambah, ketikan source code berikut : Sampai sini buka kembali form tampilan nya klik 2x pada Button lalu panggil procedure nya.

Berikut tampilan nya : Komponen : 7 label 2 Button 5 edit Sesuaikan tampilan seperti diatas, berikut source code nya : procedure TForm1.Button1Click(Sender: TObject); var x, a, afaktorial, b, bfaktorial :integer; begin afaktorial :=1; a :=StrToInt(Edit1.Text); for x:=1 to a do begin afaktorial:= afaktorial * x; end; Edit3.Text:=IntToStr(afaktorial); bfaktorial := 1; b:=StrToInt(edit2.Text); for x:= 1 to b do begin bfaktorial:=bfaktorial * x ; end; Edit4.Text:=IntToStr(bfaktorial); Edit5.Text:=IntToStr(afaktorial + bfaktorial); end;