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. |
Komentar
Posting Komentar