Contoh Perulangan Menggunakan For To

Sahabat Delphi, kali ini TS akan membahs tentang contoh perulangan menggunakan For To. Langkah - langkah yang harus dipersiapkan adalah sebagai berikut :
1. Buka Delphi
2. Buatlah 2 memo 1 list box dan 1 buah button seperti gambar di bawah ini :

3. Tambahkan pada uses INIFILES, shellAPI ;
4. Kemudian tambahkan pada var    
    MyIniFile : TIniFile;
    OpenedINIFile : TIniFile;
    INIFileName   : TFileName;
5. Klik 2 kali pada button1 kemudian masukkan coding di bawah ini :

procedure TForm1.Button1Click(Sender: TObject);
var
  i : integer;
  c : char;
begin
 //=== untuk tipe data integer
 e1.Clear;
 for i := 1 to 15 do
 e1.Lines.Add(IntToStr(i));
 //==== untuk tipe data char
 e2.Clear;
 for c := 'a' to 'z' do
 e2.Lines.Add(c);
end;

6. Klik 2 kali pada form sehingga muncul formcreate

procedure TForm1.FormCreate(Sender: TObject);
begin
  FIni := TIniFile.Create(ChangeFileExt(Application.ExeName,'.ini')) ;
  try
  //== meng create file ini
  FIni.WriteString ('FOR TO','FOR TO',FileListBox1.FileName) ;//ip address

  finally
  FIni.Free;
  end;
end;

7. kemudian tambahkan coding di bawah ini pada formshow seperti gambar di bawah ini :

procedure TForm1.FormShow(Sender: TObject);
begin
FileListBox1.Items.add(ExtractFileName(ParamStr(1)));
end;

8. Simpan project dengan cara file - save as beri nama form dan beri nama project
9. Compile dengan cara klik F9, Jika ada dialog klik Yes saja kemudian compile lagi
10. Sekian dan terima kasih.

Salam Delphi

Contoh Perulangan Menggunakan For To 2015-07-31T08:51:00+07:00 Rating: 4.5 Diposkan Oleh: Unknown