Memakai .InI Di Delphi

Pernahkah kalian Memasukan Data Atau teks Apa pun dengan notepade.Disini extensi notepade tersebut bukan TXT melainkan INI,tentu udah kenalkan.
Disini Saya akan memberikan sedikit ilmu buat yang belum mengerti atau belum pernah menggunakannya.bagi yang sudah jago di Delphi mohon Bimbingannya saja untuk menambah wawasan saya..Gax usah Panjang lebar dech nech contoh source codenya:

Tambah kan INIFILES terlebih dahulu,dan ini tidak repot karena tidak menggunakan Software atau tambahan komponen.

USES IniFiles;

--MENAMPILKAN TEKS (contoh untuk menampilkan teks pada komponen edit)
procedure TForm1.FormActivate(Sender: TObject);
 var
   profilini:TIniFile;
begin
    profilini:=TiniFIle.Create(ChangeFileExt(Application.ExeName,'.ini'));
   try
      edit1.Text:=profilini.ReadString('Profil','Nama',edit1.Text);
      edit2.Text:=profilini.ReadString('Profil','Alamat',edit2.Text);
      edit3.Text:=profilini.ReadString('Profil','Kelas',edit3.Text);
      finally
      profilini.Free;
    end;
end;


--MERUBAH TEKS(untuk merubah atau mengganti teks)
procedure TForm2.Button1Click(Sender: TObject);
var
   profilini:TIniFile;
begin
   profilini:=TIniFile.Create(ChangeFileExt(Application.ExeName,'.ini'));
   try
      profilini.WriteString('Profil','Nama',edit1.Text);
      profilini.WriteString('Profil','Alamat',edit2.Text);
      profilini.WriteString('Profil','Kelas',edit3.Text);
   finally
      profilini.Free;


      edit1.Text :='';
      edit2.Text :='';
      edit3.Text :='';
   end;
Form1.FormActivate(Sender);
end;

Misal teks yang ada di notepade namanya Project1.ini

[Profil]
Nama=Diandra Permata
Alamat=Jl.Tentara Pelajar No.56
Kelas=TI08B

Coba Aza Y Gax usah komentar dulu.He,.
Mohon Maaf Atas Kekurangannya(namanya juga Lagi Belajar),insya alloh entar di update lagi.
Semoga bermanfaat.

Coba Download DiSini Moga Aza berhasil Cepetan keburu ilang.

Posted by Antas Delphi on - Rating: 4.5

Title : Memakai .InI Di Delphi
Description : Pernahkah kalian Memasukan Data Atau teks Apa pun dengan notepade.Disini extensi notepade tersebut bukan TXT melainkan INI,tentu udah kena...